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INTRODUCTION 


The  TACWAR  theater-level  combat  simulation  model  was  developed  by 
the  Institute  for  Defense  Analysis  (IDA)  for  the  Department  of  Defense 
Studies  Analysis  and  Gaming  Agency  (DoD-SAGA).  Presently,  TACWAR  is 
being  maintained  for  SAGA  by  the  Defense  Communications  Agency  Command 
and  Control  Technical  Center  (DCA-CCTC). 

Since  TACWAR  does  allow  theater-level  combat  assessments,  it  is 
being  considered  as  a  prime  candidate  to  provide  results  to  the  "net 
assessment"  task  of  the  Army-sponsored  Theater  Nuclear  Forces  Surviva¬ 
bility  (TNF/S)  program.  A  broad-scoped  program,  TNF/S  encompasses  a 
number  of  major  task  (and  subtask)  areas  including  target  acquisition; 
nuclear-chemical-conventional  kill;  logistics;  combat  degradation; 
unconventional  warfare;  electronic  warfare;  and  command,  control,  and 
communications  degradation  (C3/D). 

Each  of  these  major  areas  of  analysis  is  controlled  by  a  designated 
"lead  element"  who  is  responsible  for  coordinating  and  assessing  that 
portion  of  the  overall  program.  The  author  is  a  member  of  a  team  of  the 
Electronics  Research  and  Development  Command;  Harry  Diamond  Laboratories 
(ERADCOM-HDL)  that  is  assisting  the  Combined  Arms  Combat  Development 
Activity  ( CACDA) ,  the  designated  lead  element  for  C3/D. 

A  thorough  analysis  of  TACWAR  revealed  that  very  little  C3  is 
modeled  explicitly.  Consequently,  it  was  decided  that  those  areas 
within  TACWAR  that  are  of  major  interest  and  importance  to  TNF/S-C3/D 
will  be  modified  to  include  C3/D  effects.  This  report  describes  those 
modification  efforts,  including  the  rationale  for  the  modifications,  the 
methodology  employed,  and  the  explicit  FORTRAN  code  changes  that  have 
been  implemented.  Initial  data  values  and  the  results  of  some  sample 
runs  also  are  provided. 


2.  SUMMARY  OF  TACWAR 

In  its  broadest  categories  of  simulation,  TACWAR  can  be  divided  into 
five  major  areas  of  combat  or  control 

Air  combat 
Nuclear  combat 
Chemical  combat 

Ground  ( with  air-ground  interaction)  combat 
Theater  control 


1 Institute  for  Defense  Analysis  Tactical  Warfare  (TACWAR)  Model , 
Defense  Communications  Agency  CCTC  Computer  System  Manual  CSM  MM  237-77, 
Parts  I,  II,  III  (6  September  1977). 
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Each  of  these  areas  was  analyzed  to  determine  if  C3/D  effects  could  be 
readily  incorporated  into  the  simulation.  The  analysis  is  summarized  in 
the  following  paragraphs. 

2.1  Air  Combat  Simulation 


In  TACWAR,  aircraft,  aircraft  shelters,  and  personnel  are 
stationed  at  specific  airbases.  These  airbase  assets  are  consolidated 
within  specified  geographical  "regions"  of  the  theater  to  establish  a 
"notional"  or  average  airbase.  For  each  of  these  notional  airbases, 
aircraft  are  allocated  to  specific  missions,  including  close  air  support 
(CAS),  interdiction,  and  airbase  attack.  The  number  of  aircraft 
available  for  these  missions  is  a  function  of  the  operating  capability 
of  the  actual  airbases  and  will  depend  on  C3/D. 

As  a  first  order  effect,  the  dependence  of'  airbase  operating 
capability  on  C3/D  can  be  accounted  for  by  the  degradation  function 
currently  available  in  TACWAR.  Other  C3/D  effects  in  the  air  model  such 
as  air-to-air  coordination  and  CAS  communications  are  secondary  TNF/S 
considerations.  Consequently,  no  changes  in  the  air  combat  model  are 
made  to  include  C3/D  explicitly. 

2.2  Nuclear  Combat  Model 


The  nuclear  model  in  TACWAR  includes  an  escalation  process,  a 
prioritized  weapons  assignment  list,  target  acquisition,  a  prioritized 
target  assignment  list,  a  weapon- to- target  selection  process,  and  a 
target  damage  evaluation  process.  Important  C3/D  effects  in  this  model 
include  (  1  )  delays  in  nuclear  escalation  and  in  target  acquisition 
processing  due  to  degraded  C3  and  (2)  lower  effectiveness  of  nuclear 
delivery  means.  Delays  in  nuclear  escalation  and  in  target  acquisition 
can  be  incorporated  into  TACWAR  by  providing  an  explicit  functional 
dependence  of  the  delay  time  with  degradation  of  C3  assets  within  the 
several  areas  (echelons)  of  control  such  as  division,  corps-sector,  and 
theater  delivery  systems.  Similarly,  nuclear  delivery  system 
effectiveness  (availability)  can  be  described  as  a  function  of  C3/D. 

2.3  Chemical  Combat  Model 


The  chemical  model  in  TACWAR  has  essentially  a  one-to-one 
correspondence  with  the  nuclear  model.  Consequently,  those  C3/D  aspects 
described  above  for  the  nuclear  model  have  a  parallel  aspect  for  the 
chemical  model. 

2.4  Ground  Combat  Model 

Ground  combat  in  TACWAR  is  simulated  on  a  division-level 
resolution.  Personnel  and  weapon  system  attrition  and  subsequent 
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movement  of  the  forward  edge  of  the  battle  area  (FEBA)  are  determined  as 
functions  of  the  effectiveness  of  the  divisions  of  the  two  combatant 
sides.  Any  C3/D  within  the  divisions  will  affect  this  combat 
effectiveness,  which  will  then  affect  the  attrition  and  FEBA  movement. 
The  amount  by  which  C3/D  influences  overall  combat  effectiveness  of  a 
division  can  be  provided  by  an  explicit  functional  relationship. 

2 . 5  Theater  Control  Model 

In  TACWAR,  theater  control  includes  division  and  airbase 
resupply,  reinforcement,  replacement,  and  reallocation.  As  in  the 
ground  combat  model  above,  reinforcement  and  replacement  for  divisions 
are  functions  of  division  combat  effectiveness,  which  is  itself 
influenced  by  C3/D.  Division  resupply  and  reallocation  (movement) , 
although  strongly  dependent  on  C3/D,  have  not  been  modified. 
Specifically,  the  gross  nature  in  which  TACWAR  simulates  the  movement  of 
entire  divisions  (and  has  no  capability  of  modeling  movement  of  division 
subunits)  is  not  amendable  to  a  C3/D  augmentation.  As  with  the  air 
combat  model,  no  C3/D  augmentation  of  airbase  resupply  and  reallocation 
was  attempted  within  theater  control . 


3.  DETAILS  OF  C3/D  MODIFICATIONS  TO  TACWAR 

The  following  four  major  areas  of  TACWAR  have  been  augmented  to 
include  C3/D  effects: 

Division  combat  effectiveness 

Nuclear  delivery  system  availability 

Nuclear  escalation  state  authorization  delay 

Nuclear  and  chemical  target  acquisition  processing  delay 

In  each  candidate  area  for  C3/D  augmentation  to  TACWAR,  it  is 
necessary  to  specify  C3  equipment  or  processes  that  are  attrited  or 
degraded.  If  these  C3  assets  were  to  be  modeled  explicitly  in  TACWAR, 
it  would  be  necessary  also  to  specify  and  to  explictly  model  the  combat 
by  and  against  these  assets.  In  particular,  the  augmentation  would  have 
to  include  target  acquisition,  weapon'  resource  allocation,  damage 
analysis,  repair-,  and  reconstitution  of  the  C3  assets. 

The  modeling  effort  necessary  to  include  the  above  effects  is  beyond 
the  scope  of  the  present  work.  Consequently,  C3  assets  are  not 
explicitly  included  in  the  C3/D  augmentation.  Instead,  other  combat 
assets  that  are  already  incorporated  in  TACWAR  are  employed  as 
surrogates  for  C3  assets.  For  example,  the  surrogates  for  C3  assets 
within  a  division  will  be  the  different  weapons  systems  of  that 
division.  For  a  corps-sector  echelon  and  theater  echelon,  the 
surrogates  will  be  a  mix  of  airbase  assets,  surface-to-surface  missile 
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( SSM)  sites,  and  surface-to-air  missile  (SAM)  sites.  These  surrogates 
will  be  modified  by  appropriate  weighting  factors  in  the  augmentations 
to  realistically  reflect  the  actual  mix  of  C3  assets  at  the  several 
echelons. 

Each  of  the  areas  of  C3/D  augmentation  is  described  in  the  following 
sections.  The  actual  FORTRAN  code  changes  and  augmentations  are  in 
appendix  A  and  are  discussed  as  part  of  the  details  below.  With  this 
description  and  appendix  A,  the  interested  reader  with  a  minimum  of 
effort  may  include  C3/D  effects  into  a  local  version  of  TACWAR. 

3.1  Division  Combat  Effectiveness  Augmentation 

In  TACWAR,  each  combat  division  is  currently  described  by 
effectiveness  parameters  such  as  EFFDD ( ID)  and  EFFDA(ID),  where  ID  is 
the  division  identifier  index.  These  parameters  depend  on  degradation 
of  weapons  systems  and  personnel  in  the  division  (compared  with  levels 
given  by  tables  of  organization  and  equipment — TOE),  the  current 
supplies  available  to  the  division,  and  the  current  chemical  posture  of 
the  division. 

For  C3/D  augmentation,  the  division  combat  effectiveness 
parameters  are  modified  by  a  C3/D  multiplying  factor.  This  multiplying 
factor  is  itself  determined  by  a  functional  relationship  between 
decreased  combat  effectiveness  due  to  C3/D  and  decreased  division 
communications  (message  throughput)  capability.  Similarly,  this 
decreased  division  communications  capability  is  determined  by  a 
functional  relationship  between  itself  and  a  decrease  of  C3  assets 

O 

within  the  division.  Lastly,  the  decrease  in  C  assets  is  to  be 
determined  by  using  the  degradation  of  surrogate  division  assets  already 
modeled,  these  assets  being  the  several  weapons  systems  belonging  to  the 
division. 


The  general  flow  of  logic  beginning  with  degradation  of 
division  weapons  systems  and  resulting  in  a  division  combat 
effectiveness  C3/D  reduction  factor  is  shown  in  figure  1.  The  actual 
changes  to  the  TACWAR  code  are  shown  in  appendix  A  and  are  discussed 
below. 
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Figure  1.  Logic  flow  algorithm  for  C3 
degradation  of  division 
effectiveness . 


Seven  new  array  variables  are  needed  to  hold  the  user  input 
functional  relationships  and  surrogate  asset  weighting  factors.  These 
array  variables  are  consolidated  into  a  common  block  labeled  TNFSC3. 


NC3DD(L)  contains  the  number  of  function  pairs  XC3DD  and 

L  =  1  to  2  YC3DD  that  describe  the  functional  relationship 

between  the  division  combat  effectiveness 
C3/D  reduction  factor  and  the  decreased  division 
communications  capability  for  each  combatant 
side  indexed  L. 


XC 3DD ( I , L )  contains  the  Ith  abscissa  point  for  the  function 

I  =  1  to  8  associated  with  NC3DD(L).  The  abscissae  are 

L  =  1  to  2  fractions  of  the  division  communications 

capability  remaining  (0.0  corresponding  to  zero 
capability  and  1.0  corresponding  to  full 
capability) . 
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YC  3DD ( I , L ) 

I  =  1  to  8 
L  =  1  to  2 


NCOMD(L) 

L  =  1  to  2 


XCOMD ( I,L) 

I  =  1  to  8 
L  =  1  to  2 


YCOMD ( I , L) 

I  =  1  to  8 
L  =  1  to  2 


FCLWL ( IW ,  L ) 

IW  =  1  to  10 
L  =  1  to  2 


contains  the  Ith  ordinate  point  for  the 
function  associated  with  NC3DD(L) .  The 
ordinates  are  fractional  reductions  of  division 
combat  effectiveness  due  to  C3/D. 

contains  the  number  of  function  pairs  XCOMD  and 
YCOMD  that  describe  the  functional  relationship 
between  decreased  division  communications 
capability  and  the  degradation  of  division  C3 
assets  for  each  combatant  side  indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  NCOMD(L) •  The  abscissae  are 
fractions  of  division  C3  assets  remaining  (0.0 
corresponding  to  zero  assets  and  1 . 0  corre¬ 
sponding  to  full  assets). 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NCOMD(L).  The  ordinates  are 
fractions  of  division  communications  capability 
remaining  (identical  to  XC3DD) . 

contains  the  weighting  factors  to  correlate  the 
division  surrogate  weapon  system  indexed  IW  to 
an  equivalent  division  C3  asset.  Notes  Within 
the  C3/D  modifications  to  TACWAR,  the  variables 
FCLWL  are  normalized  so  that  the  full  TOE  level 
of  weapons  systems  in  the  division  corresponds 
to  full  C3  assets.  The  division  C3  assets 
calculated  by  using  variable  FCLWL  are  used  not 
only  by  the  division  effectiveness  augmentation, 
but  also  by  the  nuclear  delivery  system  avail¬ 
ability  augmentation  and  the  target  acquisition 

, processing  delay  time  augmentation  described  in 
later  sections. 


The  following  subroutines  calculate  or  use  division  combat  effectiveness 
parameters  EFFDD(ID)  and  EFFDA(ID): 

GC  within  DO  loop  2525 

FEBAMT  within  DO  loop  520 

TC  within  DO  loop  4520  and  DO  loop  9020 

TIMET  following  CONTINUE  820 

The  explicit  code  changes  in  these  subroutines  to  incorporate  the 
division  effectiveness  factor  due  to  C3/D  are  given  in  appendix  A. 
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3 . 2  Nuclear  Delivery  System  Availability  Augmentation 


In  the  TACWAR  nuclear  model,  the  nuclear  delivery  systems 
available  for  each  combatant  side  are  assembled  into  three  major 
echelons  associated  with  command  control:  division,  corps-sector,  and 
theater  delivery  systems.  A  count  is  kept  of  the  number  of  delivery 
systems  available  at  each  echelon  for  each  side.  This  count  of 
availability  is  modified  by  a  C3/D  reduction  factor  that  reflects  the 
decrease  in  availability  due  to  a  failure  to  complete  special  nuclear 
authorization  and  release  (A/R)  messages.  The  C3/D  reduction  factor  is 
determined  from  a  functional  relationship  between  the  loss  of  special 
A/R  messages  and  the  degradation  of  C3  assets  within  each  command 
control  echelon. 

The  degradation  of  C3  assets  is  to  be  determined  by  using  a 
weighted  degradation  of  surrogate  assets  already  modeled  within  TACWAR 
and  associated  with  each  of  the  three  echelons.  Specifically,  the 
following  assets  will  be  used  as  surrogates  for  C3  assets  at  the 
different  echelons: 

Division 

Division  weapons  systems  (using  the  same  technique  as  that 
described  in  the  previous  section  for  division  combat  effectiveness) 

Corps-sector 

Forward  sector  airbase  assets 

Belt  SAM  sites 

Forward  sector  medium-range  SSM  sites 

Forward  sector  long-range  SSM  sites 

Theater 


Rear  sector  airbase  assets 

Communication  zone  (COMMZ)  airbase  assets 

Rear  region  long-range  SAM  sites 

COMMZ  long-range  SAM  sites 

Rear  sector  long-range  SSM  sites 

As  these  assets  are  degraded  at  the  several  echelons,  a  weighted 
proportion  is  assumed  to  correspond  to  the  degradation  of  C3  assets 
within  the  same  echelon.  The  general  flow  of  logic  beginning  with  the 
degradation  of  explicitly  modeled  echelon  assets  and  resulting  in  the 
C3/D  factor  for  the  availability  of  nuclear  delivery  systems  at  that 
echelon  is  shown  in  figure  2. 
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Figure  2.  Logic  flow  algorithm  for  C3 

degradation  of  nuclear  delivery 
system  availability. 


The  changes  necessary  in  TACWAR  to  include  the  degradation  of 
nuclear  delivery  system  availability  as  a  result  of  C3/D  are  given  in 
appendix  A  and  are  discussed  below. 

Twenty-one  new  array  variables  are  required  to  hold  the  user 
input  functional  relationships,  the  surrogate  asset  weighting  factors, 
the  initial  numbers  of  explicitly  modeled  echelon  assets,  and  the 
nuclear  delivery  system  degradation  factors.  The  array  variables  are 
consolidated  in  two  common  blocks  labeled  TNFSC1  and  TNFSC2 . 

INABF( IS , L)  contains  the  initial  number  of  forward  area 
IS  =  1  to  8  airbases  in  sector  indexed  IS  for  combatant  side 

L  =  1  to  2  indexed  L. 
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INABR( IS ,  L) 
IS  =  1  to  8 
L  =  1  to  2 

INABZ(L) 

L  =  1  to  2 

NC3SD(L) 

L  =  1  to  2 


XC3SD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YC3SD( I , L) 

I  =  1  to  8 
L  =  1  to  2 


FDDSAD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FSDSAD( IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FTDSAD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

FABDCC(L) 

L  =  1  to  2 


ABSFCC( IS/L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  initial  number  of  rear  area  airbases 
in  sector  indexed  IS  for  side  indexed  L. 


contains  the  initial  number  of  COMMZ  airbases  for 
side  indexed  L. 

contains  the  number  of  function  pairs  XC3SD  and 
YC3SD  that  describe  the  functional  relationship 
between  the  fractional  degradation  of  nuclear 
delivery  system  availability  and  the  degradation 
of  C3  assets  at  each  echelon  for  combatant  side 
indexed  L. 

contains  the  Ith  abscissa  point  for  the  function 
associated  with  NC3SD(L) .  The  abscissae  are 
fractions  of  C3  assets  remaining  in  a  particular 
echelon. 

contains  the  Ith  ordinate  point  for  the  function 
associated  with  NC3SD(L).  The  ordinates  are 
fractional  reductions  in  nuclear  delivery  system 
availability  at  a  particular  echelon. 

contains  the  current  C3/D  fractional  reduction  in 
the  nuclear  delivery  system  availability  for  the 
division  echelon  in  sector  IS  for  side  L. 

contains  the  current  C3/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
corps-sector  echelon  in  sector  IS  for  side  L. 

contains  the  current  C3/D  fractional  reduction  in 
nuclear  delivery  system  availability  for  the 
theater  echelon  in  sector  IS  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  C3  assets  with 
surrogate  airbase  assets  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  fractional  asset  degradation  of  a 
notional  (average)  airbase  in  the  forward  area 
of  sector  IS  for  side  L. 
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ABSRCC ( IS , L ) 
IS  =  1  to  8 
L  =  1  to  2 

ABC2CC ( L ) 

L  =  1  to  2 

FSSMCC(L) 

L  =  1  to  2 


TSSMIR(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIM( IS ,L) 
IS  =  1  to  8 
L  =  1  to  2 


SSSMIL( IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


FSAMCC(L) 

L  =  1  to  2 


TSAMIR( IR/L) 
IR  =  1  to  3 
L  =  1  to  2 


TSAMIZ(L) 

L  =  1  to  2 


contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  rear  area  of  sector  IS 
for  side  L. 

contains  the  fractional  asset  degradation  of  a 
notional  airbase  in  the  COMMZ  for  side  L. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  C3  assets  with 
surrogate  SSM  sites  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  initial  number  of  theater  echelon 
long-range  SSM  sites  located  in  the  rear  area  of 
sector  IS  for  side  L.  TSSMIR  is  set  to  the 
initial  value  of  the  variable  SSMSRS ( IS,L) 
already  incorporated  in  TACWAR. 

contains  the  initial  number  of  corps-sector 
echelon  medium-range  SSM  sites  in  the  forward 
area  of  sector  IS  for  side  L.  SSSMIM  is  set  to 
the  initial  value  of  the  variable  SSMSFS 
( 1 / IS/L)  already  incorporated  in  TACWAR. 

contains  the  initial  number  of  corps-sector 
echelon  long-range  SSM  sites  in  the  forward  area 
of  sector  IS  for  side  L.  SSSMIL  is  set  to  the 
initial  value  of  the  variable  SSMSFS  (2,IS,L) 
already  incorporated  in  TACWAR. 

contains  the  weighting  factor  to  correlate  the 
corps-sector  and  theater  C3  assets  with 
surrogate  SAM  sites  located  within  the  two 
respective  echelons  for  side  L. 

contains  the  initial  number  of  theater  echelon 
long-range  SAM  sites  in  the  rear  area  of  region 
IR  for  side  L.  TSAMIR  is  set  to  the  initial 
value  of  the  variable  ALRSR( 1 , IR,L)  already 
incorporated  in  TACWAR. 

contains  the  initial  number  of  theater  echelon 
long-range  SAM  sites  in  the  COMMZ  for  side  L. 
TSAMIZ  is  set  to  the  initial  value  of  variable 
ALRSZ(1,L)  already  incorporated  in  TACWAR. 
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SSAMIF(IR,L) 
IR  =  1  to  3 
L  =  1  to  2 


contains  the  initial  number  of  corps-sector 
echelon  belt  SAM  sites  in  the  forward  area  of 
region  IR  for  side  L.  SSAMIF  is  set  to  the 
initial  value  of  variable  BMRS( 1 ,IR,L)  already 
incorporated  in  TACWAR. 


In  addition  to  the  new  array  variables  described  above,  two  new 
subroutines  have  been  created  as  part  of  the  C3 /D  augmentation  of 
nuclear  delivery  system  availability.  These  two  subroutines,  named 
DSDEG  and  NUCCCD,  are  given  in  appendix  A  and  are  briefly  described 
below. 


Subroutine  DSDEG  calculates  the  fractional  decrease  in  the 
availability  of  nuclear  delivery  systems  controlled  by  the  three 
echelons  for  each  sector  IS  and  for  each  side  L.  These  fractional 
values  are  stored  in  variables  FTDSAD,  FSDSAD,  and  FDDSAD  for  later  use 
by  subroutine  NWHINV.  The  calculations  are  performed  by  using  the 
following  algorithm: 

•  Determine  the  SAM  region  IR  associated  with  sector  IS. 

•  Adjust  the  surrogate  weighting  factors  for  airbase  assets  as 

required. 


•  Determine  the  fractional  C3  equipment  degradation  from  the 
weighted  fractional  degradation  of  the  surrogate  at  each  echelon. 

•  Determine  the  fractional  degradation  of  the  nuclear  delivery 
system  availability  at  each  echelon  from  the  functional  relationship 
between  the  decrease  in  availability  and  the  degradation  of  the  echelon 
C3  assets. 

In  addition,  subroutine  DSDEG  holds  the  calculated  corps-sector  and 
theater  C3  asset  degradation  for  use  in  the  nuclear  escalation  state 
authorization  delay  and  target  acquisition  processing  delay  augmen¬ 
tations  described  in  later  sections. 

One  special  procedure  in  DSDEG  should  be  noted  on  the 
calculation  for  the  division  echelon  C3  assets.  The  total  degradation 
of  C3  assets  for  this  echelon  is  taken  as  the  geometric  mean  of  both  the 
corps-sector  and  the  division  C3  degradation.  This  procedure  more 
realistically  simulates  the  corps- to-division  C3  measures  actually  used. 

Subroutine  NUCCCD  determines  the  current  values  of  the  airbase 
assets  for  forward  area,  rear  area,  and  COMMZ  notional  airbases  for  each 
sector  IS  and  for  each  side  L.  These  airbase  assets  are  stored  in  array 
variables  ABSFCC,  ABRSCC,  and  ABCZCC,  respectively.  They  are  calculated 
from  the  current  values  of  the  operation  capability  OCNUC(IAB)  of  the 
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actual  airbases  comprising  the  notional,  where  IAB  is  the  index 
identifying  the  actual  airbase. 

Much  of  the  code  for  subroutine  NUCCCD  is  extracted  from 
subroutine  DEG  (already  a  part  of  TACWAR)  that  performed  a  similar 
function  using  variable  OCNUC(IAB).  Moreover,  to  correctly  determine 
the  operating  capability  of  each  actual  airbase,  the  variable  OCNUC  is 
now  computed  in  subroutine  DAMEVL.  Subroutine  NUCCCD  also  performs  the 
task  of  initializing  the  variables  INABF,  INABR,  and  INABZ. 

Subroutines  DSDEG  and  NUCCCD  are  called  once  every  nuclear  or 
chemical  subcycle  from  subroutine  TMAIN.  The  results  from  DSDEG  are 
used  in  subroutine  NWHINV  to  make  the  actual  modifications  to  the 
nuclear  delivery  system  availability  variables  due  to  C3/D. 

3 . 3  Nuclear  Escalation  State  Authorization  Delay  Augmentation 

Presently  in  TACWAR,  depending  on  the  current  tactical  status, 
immediate  escalation  to  a  combat  state  may  occur  in  which  nuclear  and 
chemical  weapons  can  be  used.  This  ability  to  escalate  instantaneously 
is  typically  not  a  faithful  nuclear  combat  simulation  since  it  precludes 
the  proper  authorization  by  high-level  authorities  for  each  combatant 
side.  Consequently,  TACWAR  has  been  modified  to  simulate  the  nuclear 
request  and  authorization  procedures  as  a  processing  and  decision-making 
delay  time  between  the  time  that  a  nuclear  escalation  state  is  desired 
within  a  sector  (as  a  function  of  the  current  tactical  status  of  that 
sector)  and  the  time  that  the  escalation  can,  in  fact,  occur.  This 
processing  delay  time  is  a  function  of  C3/D  occurring  for  each  side, 
especially  in  the  theater  and  corps-sector  echelons  of  the  battlefield. 

The  changes  necessary  in  TACWAR  to  include  the  nuclear 
escalation  processing  delay  as  a  result  of  C3/D  are  given  in  appendix  A 
and  are  discussed  below. 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships,  the  theater  and  corps-sector  C3  assets,  and 
the  escalation  state  processing  flags.  These  array  variables  are 
consolidated  in  a  common  block  labeled  TNFSC4. 

NEDLY(L)  contains  the  number  of  function  pairs  XEDLY 

L  =  1  to  2  and  YEDLY  that  describe  the  functional 

relationship  between  the  fractional 
degradation  of  C3  assets  in  the  theater  and 
corps-sector  echelons  and  the  processing 
delay  time  for  nuclear  escalation  for 
combatant  side  L. 
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XEDLY ( I , L) 

I  =  1  to  8 
L  =  1  to  2 


YEDLY ( I , IF , L) 
I  =  1  to  8 
IF  =  1  to  2 
L  =  1  to  2 


JESC( IS, ITC, L) 
IS  =  1  to  8 
ITC  =  1  to  3 
L  =  1  to  2 


IWAUT(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 

IFPLS ( IS ,L) 
IS  =  1  to  3 
L  =  1  to  2 

TEQPD(L) 

L  =  1  to  2 


SEQPD(IS,L) 
IS  =  1  to  8 
L  =  1  to  2 


contains  the  Ith  abscissa  point  for  the 
function  asociated  with  NEDLY(L).  The 
abscissae  are  fractions  of  equipment 
assets  remaining  in  a  theater  or  corps-sector 
echelon  for  side  L. 

contains  the  Ith  ordinate  point  for  two 
functions  (IF  =  1  and  IF  =  2)  associated  with 
NEDLY(L).  The  ordinate  is  nuclear  A/R 
processing  times  (in  hours)  for  each  side 
L.  The  function  corresponding  to  IF  =  1 
describes  the  delay  time  associated  with  the 
first  A/R  cycle  for  each  side  L  and  typically 
reflects  the  enhanced  decision-making  delay 
for  first  use  of  nuclear  weapons.  The 
function  corresponding  to  IF  =  2  describes 
the  delay  time  associated  with  all  A/R  cycles 
following  the  first. 

contains  the  desired  escalation  state  for  side 
L  within  sector  IS  against  target  category 
ITC.  This  variable  will  reflect  the  nuclear 
escalation  state  to  which  side  L  will  advance 
following  the  completion  of  the  required 
processing  delay. 

contains  the  control  flags  that  are  set 
whenever  side  L  within  sector  IS  is  waiting 
for  nuclear  release  authorization. 

contains  the  control  flags  that  are  set 
following  the  first  authorization  to  a 
nuclear  state  by  side  L  in  sector  IS. 

contains  the  current  fractional  decrease  in 
theater  assets  for  side  L.  These 
variables  are  determined  from  the 
identical  surrogate  theater  assets  described 
in  section  3.2  for  the  degradation  of  nuclear 
delivery  system  availability. 

contains  the  current  fractional  decrease  of 
corps-sector  assets  within  sector  IS  for 
side  L.  These  variables  are  determined  from 
identical  surrogate  corps-sector  assets  used 
for  the  degradation  of  nuclear  delivery 
system  availability. 
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CTIME ( IS ,  L)  contains  the  current  waiting  time  (in  hours) 

IS  =  1  to  8  following  the  onset  of  a  nuclear  escalation 

L  =  1  to  2  request  by  side  L  in  sector  IS.  This  time  is 

updated  every  nuclear  or  chemical  subcycle 
until  the  appropriate  delay  has  been 
achieved. 

In  addition  to  the  nine  new  array  variables,  one  new 
subroutine,  named  EDELAY,  has  been  created  as  part  of  the  augmentation 
to  delay  the  nuclear  escalation  process.  EDELAY  is  given  in  appendix  A 
and  is  briefly  described  below. 

EDELAY  uses  the  above  array  variables  to  calculate  and  update  a 
processing  delay  time  and  the  current  waiting  time  before  a  desired 
nuclear  escalation  state  can  be  realized  by  each  side  in  each  combat 
sector  IS.  EDELAY  uses  an  algorithm  shown  in  the  flow  diagram  in  figure 
3.  Specifically,  for  each  side  and  for  each  sector, 

•  Calculate  the  fractional  equipment  assets  (associated  with 
nuclear  A/R)  degraded  in  each  sector.  These  assets  correspond  to  the 
geometric  mean  of  the  theater  and  corps-sector  echelon  assets  since 
the  authorization  process  occurs  through  a  theater  to  corps-sector  chain 
of  command. 

•  Determine  the  desired  escalation  state. 

•  If  not  already  waiting,  reset  the  waiting  time  and  set  the 
waiting  flag. 

•  Determine  the  current  delay  time  as  a  function  of  C^/D. 

•  Update  the  current  waiting  time. 

•  If  the  waiting  period  is  complete,  set  the  current  escalation 
state  to  the  desired  state,  reset  the  waiting  flag,  and  reset  the 
desired  escalation  state. 

EDELAY  is  called  from  subroutine  NUC1  immediately  following  the  call  to 
ESCLAT. 

3.4  Nuclear  or  Chemical  Target  Acquisition  Processing  Delay 

Presently  in  TACWAR  the  target  acquisition  (TA)  model  provides 
for  the  acquisition  by  each  combatant  side  against  active  and  reserve 
division  subunit  targets  of  the  opposite  side.  Using  ground  sensor, 
army-air  sensor,  and  air  force  sensor  assets,  the  following  three 
quantities  are  determined  against  each  target  type: 
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Total  probability  of  detection  by  all  available  TA  assets 
Root-mean-square  TA  error 

Weighted  average  processing  time  for  TA  information 


The  first  two  quantities  are  primarily  functions  of  the  number  and 
operating  characteristics  of  the  TA  sensors  and  are  negligibly 
influenced  by  C^/D.  However,  the  third  quantity,  TA  processing  time,  is 
greatly  influenced  by  C^/D.  Consequently,  TACWAR  is  augmented  to 
include  the  increase  in  TA  processing  time  due  to  the  degradation  of 
assets  within  the  area  where  the  TA  sensors  are  controlled.  This 
additional  processing  time  is  then  added  to  the  nominal  processing  time 
(already  a  part  of  TACWAR)  to  give  a  total  processing  time  for  the  TA 
information  against  each  target  type. 

AT  EACH  NUCLEAR  SUBCYCLE  (2  HR) 

FOR  EACH  SIDE 
FOR  EACH  SECTOR 


PREEMPTIVE  STRIKE 


Figure  3.  Logic  flow  diagram  of  C^  degradation  of 
nuclear  escalation  process. 
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In  TACWAR,  the  TA  processing  time  currently  calculated  is  not 
effectively  used  by  the  other  subroutines  of  TACWAR.  In  particular,  the 
TA  processing  time  becomes  an  important  quantity  in  the  overall  combat 
simulation  when  the  simulation  also  includes  movement  of  the  targets. 
Thus,  if  TA  processing  is  excessively  long  against  an  acquired  target, 
then  that  potential  target  may  move  to  another  location  before  being 
attacked  by  nuclear  or  chemical  munitions.  The  effects  of  subsequent 
nuclear  or  chemical  strikes  would  then  be  partially  or  completely 
negated.  Since  TACWAR  presently  has  no  simulation  of  the  movement  of 
subunit  targets  and  does  not  use  the  TA  processing  times  against  these 
subunit  targets,  the  effects  of  C^/D,  especially  as  they  modify  TA 
processing  times,  will  have  minimal  impact  on  the  outcome  of  the  combat 
simulation.  Consequently,  it  is  recommended  that  TACWAR  be  modified  to 
include  the  necessary  target  subunit  movement  capability.  However,  such 
a  modification  would  be  outside  the  scope  of  this  work. 

The  changes  necessary  in  TACWAR  to  include  the  nuclear  or 
chemical  TA  processing  delay  as  a  result  of  C^/D  are  given  in  appendix  A 
and  are  described  below. 

Nine  new  array  variables  are  required  to  hold  the  user  input 
functional  relationships  between  C^  equipment  degradation  and  increased 
TA  processing  times.  These  array  variables  are  consolidated  in  a  common 
block  labeled  TNFSC5. 


NGSFD(L) 

L  =  1  to  2 


XGSFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YGSFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NAAFD(L) 

L  =  1  to  2 


contains  the  number  of  function  pairs  XGSFD 
and  YGSFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  division  ground  sensors 
and  the  degradation  of  division  C^  assets  for 
side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NGSFD(L) .  The 
abscissae  are  fractions  of  C^  assets 
remaining  in  a  division. 

contains  the  Ith  ordinate  point  for  the 
function  associated  with  NGSFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  the  division  ground  sensors 
for  side  L. 

contains  the  number  of  function  pairs  XAAFD 
and  YAAFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  army-air  sensors  and  the 
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I 


XAAFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


YAAFD(I,L) 

I  =  1  to  8 
L  =  1  to  2 


NAFFD(L) 

L  =  1  to  2 


XAFFD( I , L) 

I  =  1  to  8 
L  =  1  to  2 


YAFFD ( I , L ) 

I  =  1  to  8 
L  =  1  to  2 


degradation  of  forward  corps-sector  C3  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAAFD(L) .  The 
abscissae  are  fractions  of  C3  assets 
remaining  in  the  forward  corps-sector  of  side 

L. 

contains  the  Ith  ordinate  point  for  the 
function  associated  with  NAAFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  army-air  sensors  for  side  L. 

contains  the  number  of  function  pairs  XAFFD 
and  YAFFD  that  describe  the  functional 
relationship  between  the  increase  in  the  TA 
processing  time  for  air  force  sensors  and  the 
degradation  in  the  forward  region  C3  assets 
for  side  L. 

contains  the  Ith  abscissa  point  for  the 
function  associated  with  NAFFD(L) .  The 
abscissae  are  fractions  of  C3  assets 
remaining  in  the  forward  region  of  side  L  ( as 
determined  by  the  average  of  the  fractional 
C3  assets  remaining  in  the  corps-sectors  that 
comprise  the  region) . 

contains  the  Ith  ordinate  point  of  the 
function  associated  with  NAFFD(L) .  The 
ordinates  are  increased  TA  processing  times 
(in  hours)  for  air  force  sensors  for  side  L. 


The  three  functional  relationships  given  above  describe  the  influence  of 
C3/D  on  TA  processing  times  for  each  of  the  three  types  of  TA  assets — 
ground,  army-air,  and  air  force,  respectively.  The  degradation  of  C3 
assets  within  each  of  the  three  areas  that  control  these  different  TA 
assets  is  calculated  •  in  a  manner  identical  for  that  of  the  earlier 
sections.  Specifically,  the  degradation  of  divisional  C3  assets  that 
control  the  ground  sensors  is  determined  from  surrogate  weapons  systems 
assets  as  described  in  section  3.1.  Similarly,  the  degradation  of  C3 
assets  that  control  army-air  sensors  in  corps-sector  IS  =  1  to  8  is 
contained  in  the  array  variable  SEQPD  described  in  section  3.3.  The 
degradation  of  C3  assets  that  control  air  force  sensors  in  regions  IR  = 
1  to  3  is  determined  as  an  average  of  the  C3  asset  degradations  (SEQPD) 
for  all  corps-sectors  comprising  the  regions. 
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In  sections  in  subroutines  TADPAR  and  TARACA  ( already  a  part 
of  T  AC  WAR)  ,  the  above  functions  are  used  and  the  increase  in  TA 
processing  times  is  calculated  (app  A). 

3.5  Ancillary  Modifications  to  TACWAR 


In  addition  to  the  modifications  described  in  sections  3.1  to 

3.4,  several  ancillary  modifications  are  required  in  TACWAR  to  support 
the  above  modifications.  Specifically,  a  user  data  input  subroutine, 
named  TNFINP,  and  a  data  initialization  BLOCK  DATA  subroutine  have  been 
created  to  initialize  the  array  variables  described  in  sections  3.  1  to 

3.4.  Both  TNFINP  and  the  BLOCK  DATA  subroutines  are  given  in  appendix 
A.  Also,  the  single  call  to  subroutine  TNFINP  is  made  at  the  beginning 
of  subroutine  TMAIN. 


4.  LIMITATIONS 

In  constructing  the  augmentations  to  TACWAR  described  in  section  3, 
no  attempt  was  made  to  minimize  the  additional  required  storage  to  hold 
the  new  data  variables  and  code.  In  particular,  no  overlay  structure 
was  developed  that  would  conform  to  that  of  the  later  versions  of 
TACWAR. *  Similarly,  the  data  for  the  new  variables  are  input  through  a 
rather  rudimentary  set  of  READ  instructions  in  subroutine  TNFINP,  and  no 
attempt  was  made  to  include  this  data  input  into  the  rather  extensive 
input  phase  of  TACWAR.  One  consequence  of  this  is  that  the 
augmentations  do  not  support  the  "restart"  capability  described  by  the 
Defense  Communications  Agency. t  Another  consequence  is  the  requirement 
for  the  augmented  data  to  be  in  a  definite  sequence  for  proper 
interpretation  by  subroutine  TNFINP. 


5.  USER  DATA  INPUT 

For  the  most  part,  the  user  data  necessary  to  initialize  the  new 
array  variables  (sect.  3)  are  (1)  the  weighting  factors  used  to 
transform  an  explicitly  modeled  area  asset  into  an  equivalent  C^  asset 
for  the  same  area  or  echelon  and  (2)  the  functional  relationships 
describing  the  influence  of  C^/D  on  the  several  combat  simulations. 

The  surrogate  assets  for  the  division  level  C^  equipment  are  the 
weapons  systems  within  the  divisions  (up  to  10  such  system  types  are 
allowed  for  each  division).  An  initial  approximation  would  be  to  assume 


*TACWAR  Core  Reduction,  Defense  Communications  Agency  CCTC  Letter 
Report,  Task  Order  634  Subtask  1  (17  April  1978). 

tTACWAR  Restart  Capability ,  Defense  Communications  Agency  CCTC  Letter 
Report,  Task  Order  534  Subtask  2  (14  December  1977). 
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that  one  C3  asset  is  associated  with  each  weapons  system;  thus,  the 
weighting  factors  for  division  C3  assets  would  be  the  initial  number  of 
weapons  systems  at  the  beginning  of  the  simulation  for  each  combatant 
side.  These,  in  fact,  are  the  weighting  factor's  used  in  the  examples  of 
section  6.  However,  it  is  probably  a  better  simulation  of  reality  to 
assume  one  C3  asset  (in  arbitrary  units)  to  each  division  subunit.  The 
number  of  weapons  systems  in  each  of  the  subunit  types  would  then 
determine  the  appropriate  C3  asset  weighting  factor. 

The  surrogate  assets  for  corps-sector  and  theater  C3  equipment  are 
airbase  assets,  SSM  assets,  and  SAM  assets.  The  weighting  factors  to 
transform  these  into  equivalent  C3  assets  may  be  determined  by  the 
following  rationale.  Airbase  assets  may  be  roughly  equated  with  fixed- 
site  hardened  C3  facilities;  SSM  sites  may  be  roughly  equated  with 
mobile  nuclear  "soft"  C3  assets;  SAM  sites  may  be  roughly  equated  with 
semimobile  nuclear  hardened  C3  assets.  The  appropriate  mix  of  the  group 
will  depend  upon  the  specific  theater  of  conflict.  For  the  examples 
given  in  section  6,  the  following  corps-sector  and  theater  weighting 
factors  are  used  for  each  side: 

Airbase  0.30 
SSM  0. 40 
SAM  0.30 

The  functional  relationships  between  C3/D  and  the  several  aspects  of 
the  augmentations  are  provided  according  to  the  following  assumptions : 

a.  The  functional  relationship  between  the  degradation  of  division- 
level  C3  assets  and  the  reduction  of  division-level  messages  is  obtained 
from  the  results  of  TACNET  (a  discrete  event  simulation  of  a  theater- 
level  communications  model  developed  by  Egon  Marx2).  The  explicit 
relationship  is  shown  in  figure  4  and  assumed  applicable  for  each  side. 

b.  The  functional  relationship  between  the  reduction  of  division- 
level  message  traffic  and  the  decreased  division  effectiveness  is 
obtained  from  consultation  with  personnel  at  the  U.S.  Army  Training  and 
Doctrine  Command  (TRADOC)  Systems  Analysis  Activity  (TRASANA).  This 
relationship  is  shown  in  figure  5  and  is  assumed  applicable  for  each 
side . 


c.  The  functional  relationship  between  the  degradation  of  corps- 
sector  and  theater  C3  assets  and  the  reduction  of  "special"  messages 
associated  with  the  availability  of  nuclear  delivery  systems  was  taken 
from  the  Marx  report.2  This  relationship  is  shown  in  figure  6  and  is 
assumed  applicable  for  each  side. 


2Egron  Marx,  TACNET,  A  Model  of  the  Army's  Tactical  Communications 
Networks  in  Europe,  Harry  Diamond  '  Laboratories  HDL-TR-1913  (January 
1980). 
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Figure  5.  Division  effectiveness  as 
function  of  fraction  of 
information  messages 
available  within 
division . 


Figure  4.  Fraction  of  information 

available  within  division 
as  function  of  fraction 
of  C3  assets  remaining 
within  division. 
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Figure  6.  Fraction  of  nuclear 

authorization  and  release 
messages  available  as 
function  of  remaining  C3 
assets . 


d.  The  functional  relationships  between  the  degradation  of  corps- 
sector  and  theater  C3  assets  and  the  nuclear  escalation  authorization 
delay  times  are  shown  in  figure  7(a,  b)  for  side  L  =  1  (blue)  and  side  L 
=  2  (red).  These  data  are  initial  estimates  used  to  exercise  the 
augmentations  more  than  for  accurate  representations  of  reality. 

e.  The  functional  relationships  between  the  degradation  of 
division,  corps-sector,  and  regional  C3  assets  and  the  increased  TA 
processing  time  are  shown  in  figure  8 (a,  b,  c)  and  are  assumed 
applicable  for  each  side.  These  data  are  primarily  to  exercise  the 
augmentations . 

Figure  9  illustrates  a  sample  data  deck  used  as  input  for  subroutine 
TNFINP  described  in  section  3.5.  It  is  imperative  that  the  data  cards 
follow  in  correct  sequence. 
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C'  ASSETS 

Figure  7.  Nuclear  escalation  delay 
time  as  function  of 
remaining  assets:  (a) 
blue  side  and  (b)  red 
side . 
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Figure  9.  TNFINP  input 
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6.  RESULTS  OF  SAMPLE  RUNS 


The  C3/D  modified  TACWAR  model  has  been  exercised  for  several  sets 
of  input  data  to  validate  the  augmentations  described  in  section  3  and 
to  determine  the  degree  of  sensitivity  of  the  overall  combat  simulation 
to  these  augmentations.  These  sample  simulation  runs  were  made  by  using 
an  unclassified  benchmark  data  base  obtained  from  CCTC.  For  the 
different  sample  runs,  the  values  of  the  parameters  in  this  data  base 
remained  constant  except  those  parameters  used  to  control  the  overall 
operation  of  the  simulation  such  as  the  total  number  of  12-hr  cycles 
involved  and  the  inclusion  of  nuclear  combat  capability.  The  additional 
parameters  associated  with  the  C3/D  augmentation  were  varied  from  run  to 
run  in  order  to  make  the  sensitivity  determination. 

Although  the  parameters  in  the  benchmark  data  base  and  the 
parameters  associated  with  C3/D  augmentation  are  reasonable,  they  are 
not  necessarily  an  accurate  reflection  of  current  combat  capabilities  of 
U.S.  or  adversary  forces.  Consequently,  the  results  of  the  sample  runs 
have  no  direct  significance  in  an  actual  environment. 

6.  1  Conventional  Warfare — Influence  of  C3/P  on  Division 
Effectiveness 


The  first  series  of  sample  runs  involved  opposing  forces 
constrained  to  conventional  warfare  only,  with  no  possibility  of  nuclear 
or  chemical  escalation.  These  runs  were  used  to  exercise  the  C3/D 
augmentation  to  division  effectiveness  and  subsequent  combat  results 
such  as  weapon  system  losses,  personnel  casualties,  and  FEBA  movement. 
The  sample  runs  included  two  cases: 

•  Side  1  (blue)  alone  suffers  C3/D. 

•  Side  2  (red)  alone  suffers  C3/D. 

The  simulations  were  run  for  twenty-five  12-hr  cycles  (12.5 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater.  However,  the  results  of  only  a  typical  sector  (sector  6)  were 
subjected  to  a  detailed  analysis. 

Figure  10  shows  the  personnel  casualties  incurred  by  side  1 
(blue)  in  sector  6  for  the  two  cases.  If  only  the  last  values  of  the 
casualties  had  been  given  for  analysis  instead  of  the  entire  time 
history,  one  might  have  logically  concluded  that  the  results  disagreed 
with  practical  intuition.  Specifically,  after  cycle  14,  the  blue 
casualties  are  less  when  the  blue  side  suffers  C3/D  than  when  the  red 
side  suffers  C3/D.  However,  a  more  detailed  analysis  of  the  entire 
picture  of  the  combat  resolves  this  apparent  contradiction.  Thus,  when 
the  blue  side  alone  suffers  C3/D,  the  red  side  at  the  beginning  of  the 
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simulation  becomes  the  sector  attacker  and  maintains  this  attack  posture 
throughout  the  entire  simulation.  The  blue  side  (defending)  assumes 
several  different  defense  postures  such  as  delay,  prepared  defense, 
hasty  defense,  and  breakthrough,  as  shown  in  figure  10.  Each  of  these 
defense  postures  has  a  different  personnel  attrition  rate  associated 
with  it,  which  is  the  major  cause  of  the  abrupt  change  in  slope  in  the 
figure.  On  the  other  hand,  when  the  red  side  alone  suffers  cVd,  it 
again  begins  the  simulation  as  the  sector  attacker.  However,  after 
cycle  14,  the  red  side  stops  attacking  and  shifts  to  a  holding  posture; 
the  blue  side  likewise  shifts  from  defense  to  holding.  Since  the 
personnel  attrition  rate  for  a  holding  posture  is  greater  than  that  for 
the  delay  defense  posture,  the  blue  casualty  lines  for  the  two  cases 
cross  shortly  after  cycle  14,  and  the  apparent  inconsistency  is 
explained.  Consequently,  it  is  advisable  when  analyzing  the  results  of 
TACWAR  simulations  (including  those  associated  with  C^/D  augmentation) 
not  to  reject  as  wrong  or  in  error  any  result  that,  on  the  surface, 
appears  to  contradict  logical  intuition. 


reduction  of  division 
effectiveness . 
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Figure  11  shows  the  counterpart  casualties  incurred  by  side  2 
(red)  for  the  two  cases.  For  this  situation,  there  is  no  inconsistency 
in  what  is  to  be  intuitively  expected  (at  least  to  the  point  where  the 
simulation  run  was  ended).  These  results  show  approximately  a  10- 
percent  maximum  difference  for  the  two  extreme  cases  of  cVd,  that  is, 
blue  alone  versus  red  alone. 
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Figure  11.  Red  casualties  for  C3/D 
reduction  of  division 
effectiveness . 
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Figure  12  shows  the  relative  FEBA  movement  in  sector  6  for  the 
two  cases.  This  figure  illustrates  the  fact  that  cVd  can  dramatically 
affect  some  of  the  results  of  combat.  The  detailed  analysis  of  all 
aspects  of  the  simulation  is  required  for  full  understanding  of  the 
reason  for  this  behavior.  Thus,  with  blue  alone  suffering  C^/D,  the  red 
side  maintains  its  attack  posture  throughout  the  simulation.  After 
cycle  14,  when  the  blue  side  assumes  a  delay  defensive  posture  and  the 
terrain  interval  allows  a  fast  FEBA  movement,  the  slope  of  the  FEBA 
movement  line  abruptly  increases.  On  the  other  hand,  when  the  red  side 
alone  suffers  cVd,  its  attack  stalls  after  cycle  14,  and  the  FEBA 
movement  does  not  increase  further. 


Figure  12.  Forward  edge  of  battle  area 

movement  for  C^/D  reduction  of 
division  effectiveness. 
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6. 2  Nuclear  Warfare — Influence  of  C3/P  on  Nuclear  Delivery  System 

Availability 

The  next  series  of  sample  runs  involved  opposing  forces  engaged 
in  a  combined  conventional  and  nuclear  warfare  environment.  Nuclear 
warfare  was  played  by  assuming  that  a  new  escalation  state  could  be 
initiated  every  12-hr  cycle.  As  a  consequence  of  the  benchmark  data 
base  used,  a  restricted  set  of  escalation  criteria  was  used  in  the 
sample  runs.  Specifically,  preemptive  strike  escalation  was  allowed 
from  cycle  0  through  cycle  4.  Following  cycle  4,  the  only  criterion  for 
allowed  nuclear  escalation  was  the  FEBA  movement  past  a  critical 
threshold.  Consequently,  the  number  of  nuclear  escalation  attempts  was 
limited  for  both  sides. 

As  in  section  6.1,  sample  runs  included  simulations  in  which 
side  1  (blue)  alone  suffered  C3/D  and  in  which  side  2  (red)  alone 
suffered  C3/D.  The  simulations  were  run  to  twenty  12-hr  cycles  (10 
days) ,  and  detailed  results  were  obtained  for  all  eight  sectors  of  the 
theater.  Again  only  sector  6  was  analyzed  in  detail. 

Figures  13  to  15  show  the  fraction  of  nuclear  delivery  system 
availability  due  to  C3/D  for  division,  corps-sector,  and  theater 
echelons,  respectively.  The  strong  decrease  in  the  availability  of 
corps-sector  delivery  systems  reflects  the  active  nuclear  combat  being 
played  as  a  result  of  preemptive  attacks.  After  cycle  4,  the  change  is 
much  slower  because  only  conventional  warfare  is  being  waged  during  this 
time.  The  changes  occurring  at  cycle  14  are  due  to  reallocation  of 
assets  from  the  theater  to  the  corps-sector  echelon.  The  availability 
of  theater  delivery  systems  shows  a  more  gradual  decrease  due  primarily 
to  conventional  attrition  by  aircraft  attack.  Lastly,  the  decrease  to 
zero  of  the  blue  side  division  availability  between  cycles  8  and  16  is 
an  "artifact"  resulting  when  the  supplies  inventory  for  the  blue 
divisions  is  depleted  and  the  divisions  are  forced  to  withdraw  out  of 
the  active  battle  area.  When  new  supplies  are  allocated  to  these 
divisions,  they  again  achieve  a  finite  delivery  system  availability. 

.  In  conclusion,  although  the  availability  factors  within  each 
echelon  are  strongly  influenced  by  C3/D,  the  total  number  of  nuclear 
rounds  fired  by  each  side  remained  essentially  the  same  as  when  no  C3/D 
occurred  for  either  side.  They  are  similar  because  of  the  large  number 
of  potential  delivery  systems  available  at  each  echelon  and  the 
restricted  nuclear  combat  being  played;  that  is,  the  number  of  potential 
nuclear  targets  remained  small  with  or  without  C3/D. 
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Figure  13 


Figure  14. 


Reduced  nuclear 
delivery  system 
availability  for 
corps-sector  echelon 
due  to  C3/D. 
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Figure  15.  Reduced  nuclear 
delivery  system 
availability  for 
theater  echelon  due 
to  C3/D. 


6.3  Nuclear  Warfare — Influence  of  C3/P  on  Nuclear  Escalation 


This  series  of  sample  runs  involved  opposing  forces  engaged  in 
a  combined  conventional  and  nuclear  warfare  environment.  In  contra¬ 
distinction  to  warfare  described  in  section  6.2,  in  which  nuclear 
escalation  could  occur  at  the  beginning  of  each  12 -hr  cycle,  the  present 
section  includes  the  nuclear  escalation  authorization  delay  process  in 
which  a  desired  nuclear  escalation  state  is  reached  only  after  a  delay 
time  influenced  by  C3/D. 

The  sample  runs  were  made  for  the  simulation  in  which  both  side 
1  (blue)  and  side  2  (red)  suffer  cVd.  As  in  section  6.2,  the 
simulation  continued  out  to  twenty  12-hr  cycles  (10  days).  However,  in 
the  present  set  of  runs,  each  12-hr  cycle  was  subdivided  into  six  2-hr 
subcycles  in  which  possible  nuclear  escalation  could  occur.  This 
subdivision  defines  better  the  overall  escalation  delay  process. 

Figure  16  compares  the  FEBA  movement  in  sector  6  for  (1)  C3/D 
delayed  nuclear  escalation,  (2)  12-hr  nuclear  escalation,  and  (3) 
nonnuclear  combat.  It  is  seen  in  figure  16  that  the  C^/D  delayed 
escalation  process  greatly  constrains  nuclear  combat  compared  with  the 
12-hr  escalation  and  causes  the  C3/D  delayed  FEBA  movement  to  lie  in  a 
region  approximately  halfway  between  the  12-hr  escalation  and  nonnuclear 
combat. 
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Figure  16.  Forward  edge  of  battle 
area  movement  for 
different  nuclear 
escalation  processes. 


6.4  Target  Acguisition--Inf luence  of  C3/P  on  Target  Acquisition 
Processing  Delay  Time 

A  series  of  sample  runs  was  made  to  validate  the  code  changes 
in  the  TACWAR  model  used  to  increase  the  TA  processing  delay  time  due  to 
C3/D.  However,  the  augmentation  of  the  TA  processing  delay  does  not 
manifest  itself  in  any  overall  change  in  combat  results  since  the  TA 
delay  time  quantity  is  not  presently  used  in  the  other  TACWAR  routines. 
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7. 


SUMMARY  AND  CONCLUSIONS 


The  TACWAR  theater-level  combat  simulation  model  has  been  augmented 
to  include  command,  control,  and  communications  degradation  effects  in 
four  important  areas  of  the  combat  simulation: 

Division  effectiveness 
Nuclear  delivery  system  availability 
Nuclear  escalation  authorization  delay 
Target  acquisition  processing  delay 

Sample  runs  made  using  a  benchmark  data  base  show  noticeable  changes  in 
overall  combat  results  (such  as  personnel  casualties  and  FEBA  movement) 
when  these  cVd  augmentations  are  included  in  the  simulation  (except  the 
TA  processing  delay  as  mentioned  in  sect.  6.4). 
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APPENDIX  A. — COMPUTER  CODE  CHANGES  TO  IMPLEMENT  TACWAR  AUGMENTATIONS  FOR 
COMMAND,  CONTROL,  AND  COMMUNICATIONS  DEGRADATION 
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APPENDIX  A 


This  appendix  contains  the  actual  computer  code  changes  that  are 

used  to  implement  the  TACWAR  augmentations  for  command,  control,  and 

communications  degradation  (C^/D).  Lines  of  new  computer  code  that  have 
been  inserted  into  the  original  versions  of  TACWAR  are  indicated  by  the 

mnemonic  I  iX:i001  in  the  sequence  field  (columns  73  to  80)  of  the 

instruction  line.  Similarly,  lines  of  computer  code  that  have  been 
modified  in  the  original  version  of  TACWAR  are  indicated  by  the  mnemonic 
C  >J2I001  in  the  sequence  field.  For  brevity,  the  long  common  block  that 
holds  the  dynamic  parameters  of  the  original  version  of  TACWAR  is 
indicated  in  any  computer  listing  as  COMMON/BBB/  enclosed  between  two 
lines  of  asterisks. 

Hie  appendix  has  five  sections  corresponding  to  the  four  major  areas 
of  augmentation  and  an  ancillary  or  general  area  of  augmentation : 

A-1.  Division  Effectiveness 

A-2.  Nuclear  Delivery  System  Availability 

A-3.  Nuclear  Escalation  Delay 

A-4.  Target  Acquisition  Processing  Delay 

A-5.  Input  and  Main  Control 

A-1.  DIVISION  EFFECTIVENESS 

This  section  partially  lists  those  subroutines  that  calculate 
division  effectiveness  factors,  namely,  FEBAMT,  GC,  TC,  and  TIMET. 


SUBROUTINE  FEBAMT 

C»*»**»0»»®*®*»®®*®®®®®®®®®®*©®®®®®*® 

C  FEBAMT  COMPUTES  FEBA  HOVEMENT  AS  A  FUNCTION  OF  FORCE  RATIO, 

C  POSTURE,  TERRAIN,  AND  MOBILITY. 

C  CALLED  BY  GROUND 

C  CALLS  CVFK 

£»•**»»•*•»*••*•••••»©••»**•*•*•***•* 

REAL  NSUTO,NTSUDT,INTDA,INTDE,INTOS 

#F>#0O0*O#tt$©O©O0OO0©O0O©0©0©00OO©©©OO©00OO*O©*©O00*OOOVOO000O**#0®#©0©0©0O»©*«#» 

COHMON/BCB/ 

•  000©©  000000000©  0  0  0  0  0  0  00*0  00900  0  0  0  0  9  9  0000  00  0©0  000©  0000000000  00  0000  000090000  00  0Ot0 

C0MM0N/TNFSC3/NC3DDUI,XC3DD<8,2),YC300t8,2)  ,  I  JCI001 

®  NC0MDI2),XC0MDI8,2) ,YC0MD(8,2I ,  I  JCI001 

»  FCLWL  ( ID ,21  I  JCID01 

COMMQN/GCFH/  IWDRAWt8,2) 

DIMENSION  VDDSFII4D)  .KVOOCUAD) 

DIMENSION  SUMHUD)  .ISUMMI8I  ,ITDNDS«8) 

MOT  s  JCON 
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5)  COMPUTE  EFFECTIVENESS  OF  ALL  D1 VISIONS. 


IF  (IPRD.NE.II  CO  TO  IS 
WRITE (MOT, 18)  ICYCLE 

18  FORMAT! *0*,’»» “OUTPUT  FROM  SUBROUTINE  FEBAMT.  CYCLE  *  *,131 
15  CONTINUE 

SKIP  THIS  SECTION  IF  SECURITY  FORCE  RATIO  IS  NOT  TO  BE  USED 
IFCIUSFRC.EO.DI  GO  TO  599 

WVDDC  2  ACTUAL  DIVISION  WEAPON  VALUE  ON  DEFENSE 
PP  5  *  DIVISION  FRACTIONAL  PERSONNEL  STRENGTH 
OSH  2  DAYS  SUPPLY  ON  HAND 
N220 

L1M2N0(1!-*ND<2I-*MAD(11«MAD(2I 
DO  500  ID2I,LIH 
WVCDC(ID)20. 

£FFDD(IDI=0. 

VDDSF(1DI=0. 

500  CONTINUE 

DD  550  L2I  .2 
NI  2I-*N2 
N2  2  N  2  +  ND  (L  I 
N3  SNK ( L I 
00  52D  I  D 22 N I  , N  2 
IT= I TDC I DI 
WVDDC ( I D 1 2  0 . 

COMD-O. 

DO  505  I W2 I , N3 

WVDDC [ ID  I  2 WVDDC ( I0)«VIW0SFIIW,L1 “WDIVI IW.ID) 

TOCW2TKD( IW,  IT  I 

1F(T0EW.GT.0.1C0MD2C0HD*FCLWLCIW,L  )»WDIVI1W,1D)/TDEW 
505  CONTINUE 

PPS2P0IV()D)/TP0(in 
C  COMPUTE  PERSONNEL  EFFECTIVENESS 

CALL  CVFW(NiOEF(L)fXDEF(l,LifYOEF(ltL)tPPS,PEO) 
OSH=S0IV(|UI/PCSU(ITI 
C  CUMPUIE  SUPPLY  EFFECTIVENESS  FACTOR 

CALL  CVFKCNSEFFdl,  XSEFF  (1  .Ll.YSEFFCl.LI  .DSH.SEFI 
C....  COMPUTE  C*»3  DEGRADATION 

CALL  CVEW(NCUMDIL)  ,XCOMO(I  ,L  I ,  YC  DM  D  ( 1  ,L  I  ,COMD  ,CC  CD  I 
C....  COMPUTE.  C*»3/U  EFFECTIVENESS  FACTOR 

CALL  CVFWINC3DDILI  .XC3DDE1  ,L  I,YC3DDC1,LI  .CCC0.EFFC3I 
C  COMPUTE  DIVISION  EFFECTIVENESS  AND  COMBAT  VALUE  ON  DEFENSE 

EFFDD(IDI2EFFC3»SEF»AMINlCrWVDDC  t  Id/WVDDTSC  ITII  , PEO  1 
IF  U0MU.ED.3.0R.IDMU.EQ.5I  GO  TO  6908 
EFFDD<lDI2EFFCDUDI*FDEFCPf  ID  I 
6908  CONTINUE 

VDOSF  !ID)2EFFDD(IDJ®WVDDTSIITI 
520  CONTINUE 

N2  =  N2-*M  AD  <  L  I 
550  CONTINUE 

C 

IFIIPRD.NE .11  GO  TO  599 
WR1TE(M0T,II7I 
N32ND(1)-*ND(2')-*MAD(1I 
DO  580  ID=1,N3 
IT  2ITO( ID) 

WRITE (MOT, 12  I  10, WVDDC! ID)  ,WVDDT5(1T|,EFF0D(IDI,VDD5F{IDI 
580  CONTINUE 
599  CONTINUE 


SUBROUTINE  GC 

C  GC  COMPUTES  ATTRITION  TO  PEOPLE  AND  WEAPONS  CAUSED  BY  GROUND  FIRE 

C  AND  CAS  ANO  ALSO  COMPUTES  WEAPONS  REPAIRABLE  AND  SUPPLY  LOSSES. 

C  CALLED  BY  GROUND 

C  CALLS  E1GENV,CVFW,MPR0D,CNTRYC 

(••••••«  •«••»••••«•  •*••••••••••••••• 

REAL  NSUTD  .NTSUDT,  I  NTOA  ,  INTDE  ,1NTDS 


JCI001 


JC1D01 

JCI001 


JCIOOI 

jciooi 

JCIOOI 

JCIOOI 

JCI0D1 


44 


APPENDIX  A 


90999990099999?99990e999999QQP999090Q990999999999990999Q09099999999999999999999 

COMNON/BBB/ 

9099909909999999999999999999999999999999  99  9999999999999099909999999909999999999 

CaMH0N/TNF$C3/NC3DD<2)  , XC300 <8 ,2  I , YC300 1 8 ,2 1  ,  I  JCIOD 

»  NC0MDt2),XC0M0<8,2),YC0H0t8,2)  ,  I  JUOO 

•  FCLWL(1D,2)  I  JCIOO 

COMMON/GCFM/  1WDR4W<8,2) 

OIMENSIUN  EC AX  SR (230 ) , E OCX  SR <2C0 ) , VO AC ( 200 > , VDDC (200 > 

01  ME  NS  I  ON  NS  (  10,2)  ,  AAVf  A  ( >  0  •  10  ,2  )  ,  AAWO 1 10 . 1 0  ,2 1  , 

1  PHAKWtlO,lC,2),P*DKW<10,10,2I,AAMAl6,10,2I, 

A  AAMD16, 10, 2), PA AK *17,10, 2), PACK *<7,10.21, 

2  BSUM.tlOO)  ,R  SUM  (  100  )  ,  V  I W  ACF  (10  ,2 1  ,  Vf  WOCF  tlO  ,2  )  . 

3  VIAACFl 10 ,2) , V1A0CE [10,21 ,WVOAT  <101 .TYPCAF (8 ) ,TYPC0F{8) , 

4  VLS{2)  ,KVOOT(  10)  ,*VOAC<  200)  ,WVODC  <200  ) ,  PCS  <  2  )  ,SUMM {  1 0  )  , 

5  ISC  (2)  ,PLS(8,2)  ,HLSO0.2)  .GKGSIIO  ,10,2», 

6  AK0SC7, 10 ,21 , 1H0LD (21 
DIMENSION  TSL  <8,21  ,T*S<2) 

DIMENSION  WLDAS(ID,8,2I  ,C  DA  CS  ( B  ,  2  ) 

MOT  =  JCON 

C  4)  ADJUST  THE  5TANOAR3  ALLOCATION. 

C  THIS  SECTION  EXECUTEO  ONLY  ON  FIRST  CYCLE  OF  GAME 

IFllCYCLE.NE.I  1  GO  TO  499 
00  450  L  *1  ,2 
N3-NW ( L ) 

KO-L 
N  4  =  N  W  t  K  1 

N5=NAMCLI  C  JCIOO 

00  430  K W  = 1 , N 4 

IF  IPWSFCK*  ,K  I  .EQ.O.D)  GO  TO  415 
00  405  1 W= 1 , M3 

SAWAC1W,KW,LI*SAWA< IW,KW,L)/P*SFIKW,K) 

SAWOdW.KM  ,L  1  3  SA  WO  (  I  W ,  K  W  ,  L  J/PHSF  (K  W,  K  I 
405  CONllNUE 

00  410  I  AM  *  1 ,N5 

SAHAI lAN.KW.LI =SAMA< lAM.KW.l l/PWSF  <KW,K) 
SAM0CIAM.,KW,L)3SAM0<IAM,K*,U/P*SF<KV,K) 

410  CONTINUE 
GO  TO  430 

415  DO  420  l*=l,N3 

SANA  (  IH.KW.L  )>0.0 
SAUDI  1*,KW , L 130.0 
420  CONTINUE 

DU  425  I  AM » 1 ,N5 
SAMA  <  <AM,K*,L  I  '0.0 
SAKDI  lAM.KM.Ll  ‘0.0 
425  CUNUNUE 
430  CONTINUE 
450  CONTINUE 


00  2503  1**1, N3 

WVOAT  (I  T)  =  WVOAT(  IT)  «V(WACF<  )H,U«T*D<  1M,  IT  I 
WVODTl)T)*WVOOT( IT  1 « VI WOCF (I W, 1 1 »THO < I W, IT  1 

2503  CONTINUE 

2504  CONTINUE 

00  2525  1 0 S* N1  ,N2 
I0‘(DLA6A( IOS.IS) 

I T  *  I  T  D  <  I  0 1 
WVOAC  <  <  0  I  *  0. 

WV00C<10)30. 

COMO  3  0 . 

00  2505  <W=1,N3 

WV0AC<<0)3WV0AC<lD>-*V)WACF<I  W,l)*WOIV<IW,ID  1 
*V00C<I0)-WV0DC(I0)-»VI*0CF(l*,L)eW01V(lH,)D) 

TOE  *»TKO  < I W, 1 T ) 

tFITOEK.GT  .0.)C0M03C0MD«FCIVIUH,1  )«WDIVCIW,  IOJ/TOEW 

2505  CONTINUE 

C  CALCULATE  EFFECTIVENESS  OF  PERSONNEL. 

PPS  =  P0IV<I01/TP0<IT) 


T  JC1001 

l  JC1001 
1  JCIOO! 
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CALL  CVFWINEAEFtL)  *XAE  F 1 1 »  L I  .  YAE  F  (  1 ,  L I  ,PPS,  PE  A  » 

CALL  CVFW1NEDE  F ( L I , XDEF 1 1 . L I ,YDEFtl,L> ,PPS,PEO> 

EDAXSRUOI  -AM)N1((KVDAC(ID)/MVDAT(ITII  ,PEA» 

EDO  X  SR  (  I  D  )  =  AMI N1  II YVDDC  (  ID  l/WVDDT  I  IT  )  )  ,PED) 

C  CALCULATE  EFFECTIVENESS  REDUCTION  DUE  TO  SUPPLY  SHORTAGE. 


DSH=SD!VIID)/PCSDI!T) 

CALL  CVFwINSEFFIL)  .XSEFFIl  ,L),YSEFF(  1 .  L  1  ,DSH,SEF) 

C....  COMPUTE  C»»3  DEGRADATION  I  JCIOOl 

CALL  CVFWINCOMDIL) .XCOHO II , L ) , YCOMD I 1 , L ) ,CQMD,CCCD»  I  JCIOOl 

C....  COMPUTE  C»»3/D  EFFECTIVENESS  FACTOR  I  JCIOD1 

CALL  CVFHIKC3DDILI.XC3DDU  . L ) . YC 3D  Dll , L I ,CCC D , EF FC3 )  I  JCIOOl 

C  CALCULATE  DIVISION  EFFECTIVENESS  AND  GROUND  VALUES 

EFFDA1IDI  =  EFFC3«SEF*E0AXSR  (ID)  C  JCIOOl 

EFFD0t!0).EFFC3»S£F»E0DXSRUD)  C  JCIOOl 


I F ( I0MU.EQ.3.OR.IOMU.E0.5)  GO  TO  6908 
EFFDAIID)=EFF0A(ID)*FDEFCP(10) 

EFFDDIIO)*EFFDDC 1D)»FDEFCP(ID) 

6908  CONTINUE 

VOAC(ID)»EFFDA  (1D!#WVDAT (IT) 

VDDC(  ID)  =E  FFDO  UO)»WVDDTl)  T) 

VGABA(IS.L)-VGAPAIIS.L)*VDAC(1D) 

VGD8AIIS.L )=VG08A(IS,L)«VDDC(ID) 

C 

IF(IPRD.NE.l)  GO  TO  2525 
WRITE (MOT, 1101 
WRITE(MOT,)OI  ID  1 1 T 
WR  I  TE  IMOT  .III) 

WRITE  (MOT.  22)  WVDAC  (  )D  )  ,  WVDOC  I  ID  ).,  WVDAT  (IT )  ,  VVDDTl )  T  ) ,  EDAXSRI I D  )  , 
X  EDDXSR l ID) .EFFDAIlO I ,EFFOD(ID)  .VDACIID) .VDDCl )D) 

WR ITS IMOT .1121 

WRITEIM0T.22I  PEA.PEO.DSH.SEF 
2525  CONTINUE 
2530  CONTINUE 

IFOPRD.Ul.)>  GU  10  3000 
WRIIEIM0T.I13) 

WRITE  (MOT,  22)  ((VGAbAOS.L)  .VODBA  (IS,L)),L*1,2) 

C  30)  CALCULATE  AIR  VALUES  ON  ATTACK  AND  DEFENSE 

3000  DO  3020  L=),2 
VAAB A ( ) $  «L ) *0 . 


SUBROUTINE  TC 


SUBROUTINE  TC  IS  THE  MAJOR  THEATER  CONTROL  PROGRAM  AND  HANDLES 
A  MAJOR  PORTION  OF  THE  BOOKEEPING  EFFORT  REQUIRED  BY  T AC VAR . 

CALLED  BY  TMAIN.  CALLS  AIRASG,  APORTN,  CNTRYC,  CVFW,  IIBA,  MSREAD, 
MSWRIT,  NXDIV.  SECHTH,  TAG 

ALSO  CALLS  2ND  HALF  OF  ORIGINAL  ROUTINE  ITCXX) 

C«  ....... ......  .  .............. 

REAL  N5UT0,NTSU0TtINT0A,INT0E. INTO 5 


CUHMDN/BRB / 


C0MM0N/TNFSC3/NC3DDI2) ,XC3DD 18 ,2), YC3DDI8.2) .  1  JCIOOl 

*  NCUMDI2),XC0HD{8,2),YC0MD(8,2) ,  1  JCIOOl 

*  FCLWLI1D.21  I  JCIOOl 

COMMON/TCQ/SDD I V  1 1  AO ) , SO SN ( 9 5 )  ,S DA 8F S 1 8 )  ,SD ABRS ( 8 )  , 

*  ITESCI8,6),ITEML(8,3,2I  , 

*  I  WORK  1 1  30) . IWORK213D) , I  WORK  I  30, 2) .RWNAB A ( 10 , 1 ,2 ) , 

»  RPNABA(1,2) ,  VDDSFU90) ,  SUMM  1 10 )  ,  WNDAB  A  CIO ,  140  )  , 

»  PN0A0AI140) , 1DDABACI4D)  • 

»  ST0R1 13, 8 ,2) , ST0R2I 3,0 ,2)  , 

*  I AB  AST ( 8  I  , 

»  OISTBPIB) ,FRACDS(8 ) ,P2L0NG(8) , 

«  WV0DCI1AD) .WVDACI140) , I RDA BA (2) , THND I V C 10 ) , 

*  SUNOI VI 7 ) , SUA (7 ) 

DIMENSION  ASIDEI2) 
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C  451  COMPUTE  EFFECTIVENESS  Of  ALL  DIVISIONS. 

N2  *  0 

C  FOR  EACH  SIDE  L  DIVISION 

DO  455D  L*l,2 
HI  =  I *N2 
N2*N2*ND(L  ) 

N3*NWIL  ) 

OD  <.520  I0»NI,N2 
II  •  I  I  HI  H<) 

WVOAL 1101*0. 

WVDDC)IO)*D. 

CDMD=D. 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE. 

DD  4505  I W  =1  ,N3 

XVDAC  I)DI*WVDAC(  I D)  «V IW ASF ( IW ,L I «W DI VI IV , I D I 
WVDDCI  ID)*KVDDCt  ID  I  ■*  VI  WD  SF  C  I K  ,  L  I  «WDI  V  1 1 H  ,  I D  ) 

TO  E W  *T WO  1 1 W ,  I T  I 

IF  (  TLEW.CT .D . I  COMO *CUMD «FCL VL  II W ,L !<>WDlVtIW, 1DI/T0EW 
4SD5  CONTINUE 

C  USE  PERCENT  PERSONNEL  STRENGTH  IPPSI  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE. 

PPS=PDIV(IDI/TPD(ITI 

CALL  CVFW(NFAEFIL) .XAEFI 1 , L I ,YAEF I  1 , LI .PPS.PEAI 
CALL  CVFW(NEUEF)L),XDEF I  I , L I , TOE F I  I , L I , PPS ,PE D I 
C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT.  FACTOR. 

DSH*SD1V(ID)/PCSD(ITI 

CALL  CVFWCN1EFFIL) .XSEFF  II  ,L I , YSE F F ( I ,L I ,DSH , SEF 1 
C....  COMPUTE  C»«3  DEGRADATION 

CALL  CVFWINCOMDI L) .XCDMDII ,L I , YCOMDI I ,L I ,COMD ,CCCD I 
C....  COMPUTE  C««3/D  EFFECTIVENESS  FACTOR 

CALL  CVFWINC3DDILI  ,XC30D(I  .  L  I  ,  YC3DDI  I  ,L  I  ,CCCD  ,t  FF  CJ I 
C  COMPUTE  IFIKT  IVINE'.S  OF  DIVISION  (IN  ATTACK  AND  ON  DEFENSE, 
tf  F0AUDI  =  UFC3«5tF*AMINHIWVDACU0I/WVDATSIlTII,PEAl 
EF  F DO  1 1 D I  *  E F  FC  3* SE F  *AM I N I ( (WVOOC 1 1 D I /WVDDT S ( 1 T 1 1 » PED I 
IFI1UMU.EQ.3.0R.IOMU.E0.5I  GO  TO  6908 
EFF  DA 1 1 D I  *  £F  F  D A ( ID) *FDEFCP  CIO) 

EFFOD)ID)*EFFDO)IO)“FOEFCP(IDl 
69D8  CONTINUE 


C  901  COMPUTE  EFFECTIVENESS  OF  DIVISIONS  AND  ORDER  DIVISIONS  IN  FIRST 
C  INACTIVE  8ATTLE  AREA  ACCORDINGLY. 

N2  =  0 

DD  9 D 5D  L=  1,2 
NI *1 *N2 
N2  =  N2«NDIL  I 
N3  *  NW  (L  I 

C . DETERMINE  EFFECT IVVESS  OF  DIVISION  ON  ATTACK  AND  DEFENSE. 

DO  9D2D  I D  *N I , N2 

JT-ITDI1DI 

WVD  AC ( 1 D I  *  D . 

UVDDC 1 1 D 1 *0. 

COMORO. 

C  COMPUTE  WEAPONS  VALUE  ON  ATTACK  AND  ON  DEFENSE. 

DO  9DC5  IW»I ,N3 

WVDAC  I  ID  )*WVDACI  ID  MVIWASF  I  IW  ,L  I  »W  D IV  t  )W  ,  ID  I 
WVDDC(ID)*WVDDC(IDI*VIWDSFIIWtLI"WOIVIIW,IDI 
TOEW*TWD(IW,IT I 

IF  I TOEW.GT  .0  .)COMD*COMD«FCLVLUW ,L )• WD IV (IW , I  DI/TOE V 
90D5  CONTINUE 

'C  USE  PERCENT  PERSONNEL  STRENGTH  IPPSI  TO  DETERMINE  PERCENT 

C  COMBAT  EFFECTIVENESS  ON  ATTACK  AND  ON  DEFENSE. 

PPS=POIVIIO)/TPDlIT 1 

CALL  CVFW(NEAEFIL) ,XAEF 1 1,L! ,YAEF ( I ,L I ,PP5 ,PE A I 
CALL  CVFWINEOEF ILI ,XOEF( I , L I ,YDEF) I ,L I ,PPS,P ED  I 
C  USE  DAYS  OF  SUPPLIES  ON  HAND  TO  DETERMINE  SUPPLY  EFFECT.  FACTOR. 

D5H=SU)V()0I/PCSD(IT) 

CALL  CVf WINS l H ILI .XSEFF (1 ,L J . YSl F F 1 1 , l I ,DSH , St F I 


1  JCIDD1 


1  JC IDO  I 
I  JC IDO  I 


t  JC I DD I 
I  JC I OD 1 
I  JCI001 
I  JCIDD1 

C  JCID01 
C  JC I OD 1 


I  JCI0D1 


I  JCIDD1 
I  JCIOOI 
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C  ....  COMPUTE  l 4  4  3  0)  GftADAT  II3N  t  JCIOOl 

CALL  CVF NINCDHOIL) ,X(UMDIl ,L I .YCUMOll.LI ,COHD,CCCOI  I  JC  >  00 1 

C....  COMPUTE  C443/D  EFFECTIVENESS  FACTOR  I  JCI001 

CALL  CVFKINC30DtLl.KC3DUIl,ll,YC300(l,Ll.CCC0,EFFC3)  I  JC  )  00 1 

C  COMPUTE  IFFtCT  IVCME S5  OF  DIVISION  ON  ATTACK  ANO  UN  DEFENSE. 

EFFOA  Cl  D)  =  EFf  C34SEF  «AMINlt  IMVOACIIO) /WVOATS  C  IT  1 1  ,PEA  I  C  JCI001 

EFFDUII0)  =  EFF13»SEF»AM1N1UWVD0CCID)/MV00TSI1TII  ,PEOI  C  JCI001 

IF  ( IOMU.LO  .3. UR.  I0HU.EQ.5I  CO  TO  6909 
Ef  fOAUOUEFFDACIDlof  DEFCPtlOl 
EFFDD«IOI*EFFODt ID  I  *FOC  F  CP  1 10) 

6909  CONTINUE 

SUBROUTINE  TIMET 

C  THEATER  CONTROL  ROUTINE  FOR  1/0 


C  TIMET  PROCESSES  ALL  RESOURCE  CHANCES  THAT  OCCUR  DURING  THE  MAR 

C  CALLED  BY  TMAIN 

C  CALLS  ASSIGN,  MSREAO  •  MSWR1T,  CVFW 

fa  »eoooaooooooooaaaadoaaooooooooooo«o 
REAL  NSUTO .NTSUOT, INTOA , INTDE, INTDS 

aaaaaaaaaaaaoaooaaaaaaoaaaaaaooaaaaaaaaasaaaoaaaaaoaaaaaoaaaaaaaaaaaaaaaaaaaaaaa 
COMMON/BBB / 

DIMENSION  IRECI21)  .ZRECI21  1  ,ZEP0(1  I  ,  IVALU5)  .ZVALI15) 

COMMUN/TNF SC3/NC300 12) .XC300IB ,2) ,YC3D0IB,2) ,  1  JCI001 

»  NC0M012! .XCOMDtB  ,21 ,YC0M0I8,2) ,  1  JC1001 

•  FCLWL ( 10 1 2 1  1  JCIOOl 

EQUIVALENCE  I  I  RECl I  I , 2R EC ( 1 1  1 , C ION  ,  I  RE C 1 1 1 >  ,  1 1FN , IRE C  12  I  I , 

•  (KBA.1REC  18)1  .IKREG.lRECtlOII , (KS A. IREC (9 1 1 .(1T.IRECC7) I , 

4  I  IRECIA) .  I  IDI , 

•  UCUOE,  IREC  (3)1  .(1ST,  IREC  IN  1 1  ,UT0,IREC(5>  I  .  (1  INC.  IREC  161 1  , 

•  I  IVAL  11 1 ,  IREC  17) I ,1 1VALI1 I  ,2V ALII  I) .INEPOIl 1 .2EPDC1) I 
IT  T  =  1  TTO 

ITT*15 


C  10)  READ  T | ME— T  INPUTS 
C 


VVDO  a  0 • 

COMO5  0. 

DO  910  IM'l.MM 

NVD05*VD0«VI  WDSFIl  V,L!  «WD1  VI1M.1  10  I 
TOEMaTWOllM.IT) 

IF  (TCEW.GT  .0.)C0MD*C0MD*FCLVL(1V,L  1»V0IVC1W,I  101 /TOE W 
910  CONTINUE 

C  COMPUTE  01 VI S I CN  EFFECTIVENESS 
PP  S5  P  0  I V  ( I  I  D I  /  TP  DC  I T  I 

CALL  CVF WINE DEFILI, XOEF (1,L! ,Y0EFC1,L1,PPS,PE01 
DSH=SOIVIl 1DI/PCSDI  IT) 

CALL  CVFWINSEFFIL) , XSE FF 11 ,L I , YSEf Ft  1 ,L I .D5H.5EFI 
C....  COMPUTE  C»»3  DEGRADATION 

CALL  CVFWINCOMDI LI ,XCOMD II , L I , YCOMD I I , L 1 ,COHD ,CCCO I 
C....  COMPUTE  C443/0  EFFECTIVENESS  FACTOR 

CALL  CVFWINC3DDIL) , XC300I1 ,L I , YC3DD 1 1 , L I ,CCCD ,EF FC3 I 
EFFDDI1 ID)  -E FF C 3«SE F »AM I N 1  1 1 WVDD/HVODTS I  IT  I  I ,PED) 

IF  I  IUMU.EQ.3.0R.  I0HU.EQ.5)  CO  TO  6908 
EFFDOII 10) =CFF00I11DI 4FOEFCP IIID) 

6908  CONTINUE 

C  ASSIGN  DIVISION  TO  A  PARTICULAR  LOCATION  IN  THEATER 

CALL  ASSIGN! 1DN, I I0.K8A ,KSA,KREG,L I 
18ALD  II 10) «KBA 
NO  I  8 A  I K  SA , L I 5N0I8A|KSA,L 1*1 
J  =  ND I  BA IKSA ,L I 
IOLIBAIJ.KSA.LI-IIO 
GO  TO  8  7 
81  CONTINUE 
RETURN 
END 


I  JCIOOl 


I  JCIOOl 
I  JCIOOl 


I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
C  JCIOOl 
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A-2.  NUCLEAR  DELIVERY  SYSTEM  AVAILABILITY 


This  section  completely  lists  subroutine  DSDEG,  which  determines  the 
several  delivery  system  degradation  factors;  subroutine  NUCCCD,  which 
determines  the  C^/D  factors  of  airbase  assets;  and  function  NWHINV,  in 
which  the  delivery  system  degradation  factors  are  used.  Also  included 
is  that  portion  of  subroutine  DAMEVL  that  is  modified  to  include 
adjustment  to  actual  airbase  operating  capabilities. 


subroutine  osoeg 

c  I  JC1001 

C  DSOEC  DETERMINES  THE  FRACTIONAL  DECREASE  IN  DIVISION,  SECTOR.  AND  I  JCIDOI 

C  THEATRE  WEAPONS  SYSTEMS  BA  SC  0  OF  DECREASES  IN  DIVISION.  SECTOR  I  JCIODI 

C  AND  THEATER  ASSETS  SUCH  AS  WEAPONS  SYSTEMS,  SAM  SYSTFMS.  SSM  I  JCIDOI 

C  SYSUMS,  AND  AIRBASES  I  JCIDOI 

C  '  1  JCIDOI 

REAL  NSUTD.NTSUDT.INTDA.INTDE.INTDS  I  JCIDDI 


0090900000090C000909009000009900000099090099999490999004099000090900090909009499 

COMMON/386 / 

09 OOOOOO 40 0004 000009 00004 4 0009 09 49 0090 90 90 9 90 9 000 40 990 09 09 9 9 99 0004 99 9 099 99 09 009 9 


C0MM0N/TNF5C1/ INABFI8.2) .INA8RI8 ,21, 1NABZC2) 
.C0HMCN/TNFSC2/NC3SD12)  ,XC3SD(8,2I  ,YC3S0(8,2J , 

•  FDDSADI8,2I,FSDSAD(8  ,21 .FTOSAD (8,21 , 

»  FAODCC  t  2]  , AB  5  F  CC C  8 ,2  ) , A  8  SRCC  C 8  ,21 , ABCZCC 12)  , 

»  FSSMCCI21 , TSSMIR(8,2I,SSSMIMC8,2I  ,SSSM1L  C8  ,21  , 

»  FSAMCCI2) ,TSAM1R(3,2),TSAMIZI2I  ,SSAMIFC3,2I 

CDMMDN/  TNF  SC3/NC3DD  1 2 1  ,XC30D  (8  ,2  I  ,  YC3D0  ( 8 ,2  I  , 

»  NCOMD (21 ,XCDMDC8,2J,YCDMDI8,2), 

•  FCLWLII0,2) 

C0MMON/TNFSC4/NLDLY (2) ,X EDLY ( 8 ,2 1 , YE DLY « 8 ,2 , 2 1 , 

»  JESC(8,3,2I,IWAUT(8,2I,1FPLS(8,2I, 

»  TE0PDI21  ,SE0PDI8,2I  ,CT1ME(8,2I 

REAL»8  ASTYPI3I 
DIMENSION  AS  1 0  E  I  2) 

OATA  ASTYP, ASIDE/’ DIVISION', ‘SECTOR  ', ’THEATRE  ’, ’BLUE ’, 'RED  ’/ 
HOTcJCDN 
00  2  L-L  ,2 
TEOPD  (L  1  *0  . 

2  CONTINUE 

00  S  IS'I ,NS 
NRR  =  0 
ND2  =  0 

00  10  L  =  1  »  2 
NKS'NK(L) 

NR  T  =  NR ( L  ) 

00  15  IR*l,NRT 
IRT'IR'NRR 

IE  IIS.LE.NHSRIIRTDGOTO  16 

15  CONTINUE 

WR I T E 16 ,9000  I 

9000  FORMATt’I* , ’NO NR EC  OVER ABLE  DATA  ERROR  -  SECTOR/REGION 

•  ’INCOMPATIBILITY  IN  SUBROUTINE  OSDEG’I 
STOP 

16  CONTINUE 
EI=FAaDCC(L) 

E2  =  F  SSKCC I L I 
F3*FSAMCC(LI 
SUM  =  I 2'E 3 


I  JCIOOI 
1  JCIDOI 
I  JCIDDI 
I  JCIOOI 
1  JCIDDI 
I  JCIDDI 
I  JCIOOI 
I  JCIODI 
1  JCIDOI 
I  JCIODI 
1  JCIDDI 
1  JCIDOI 
1  JCIODI 
I  JCIODI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIODI 
I  JCIOOI 
I  JCIODI 
1  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIDOI 
I  JCIOOI 
I  JCIDDI 
I  JCIOOI 
I  JCIDDI 
I  JCIDOI 
I  JCIDDI 
I  JCIDDI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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If  (  INACRCIS.L)  .GT.O.ANO.lNABZKl.GT.Ol&OTO  17 

I 

JC  1001 

If  (INA6R(15,l).GT.O  .OR  .  INA B Z t L ) .&T .0 1G0T0  19 

I 

JC I  001 

f  1  =0 . 

) 

JC  1 00 1 

f  2  * F  2 /SUM 

1 

jc iooi 

F3  »F 3/5UK 

) 

JC 1 00 I 

corn  17 

I 

JC  I  00 1 

1  9 

FI  *  F  MF  I 

I 

JC  I  00 ) 

17 

ETO>0.5«FI*(ABSRCC1)S,L)«ABCZCC)L)  l«F2*S5MSRS C IS ,11  /TSSM  )R|  IS .L 1  ♦  I 

JCI001 

• 

0.5»f  3MALRSR  1 1 , )  R  ,U /T  SAN  1  R )  IR  , L  ) ♦ AIR SZ 1 1  .  L  l/TSAH)  Z  (LI  )  I 

JC  IOOI 

TEUPD(L)'Tt(iPO(l)«EH> 

I 

JC  I  00 1 

FI *FAB0CCIL) 

I 

JCID01 

F2  SF  SSMCC I L I 

1 

JCI001 

F3  =  F5AM  CC ( L I 

1 

JCI001 

SUM  =  F  2*F  3 

1 

JCI001 

IFIINABFIIS.LI .CT.DIGOTD  21 

I 

JC  I  00 1 

FI  *0. 

I 

JCI0D1 

f  2  *  F  2/SUM 

I 

JCIOOI 

F3*F3/SUM 

I 

JC 1 001 

21  ESO*  Fl»ASSfCC CIS,L)  ♦  F3»BHRS tl . 1R, U /SSAM I F ( IR,L 1 

4 

1 

JCIOOI 

»  0.5»F2»(S5MSFS(1,1S,L)/SSSMIM(1S,L)*SSMSFS(2.1S,L)/SSSMILUS,L)I 

JCIOOI 

SECPDlIS,LI=ESO 

1 

JCIOOI 

EOO  =  0  • 

I 

JCIOOI 

IFINDSI IS, LI .LE.OIGOTO  18 

1 

JCIOOI 

NO  1  *  1  -*N02 

1 

JCIOOI 

ND2-N02*ND5I IS.L 1 

I 

JCIOOI 

00  20  I  OS-NO  1 1 N0  2 

I 

JCIOOI 

IO-IOLABAI IOS, ISI 

JCIOOI 

I T  *=  I  TO  t  101 

I 

JCIOOI 

00  22  IW=1*NW5 

I 

JCIOOI 

TOEN*TWD ( I W,  IT  ) 

I 

JCIOOI 

IFITOEW.GT.O.)  EOO=EOO»FCLWLIIW,L)*KDlVtlW,J0 J/TOEH 

1 

JCIOOI 

22 

CONTINUE 

I 

JCIOOI 

2D 

CONTINUE 

I 

JCIOOI 

EDD*EDD/ND5(I5,L) 

I 

JCIOOI 

IB 

CONTINUE 

I 

JCIOOI 

EDO=SQRT (E0D»E50I 

1 

JCIOOI 

CALL  CVFWINC3S0(L),XC3S0(l,l),YC3SD(l,l) .EOD.SOEGl 

I 

JCIOOI 

FOOSAOI I  5  ,  L ) =  5  DEG 

JCIOOI 

CALL  CVFW(NC3S0(LI,XC3S0(l,L>.YC3SDfl,LI,ESD,3DEGl 

I 

JCIOOI 

FSOSAD(IS,LI=SOEG 

I 

jciooi 

CALL  CVFWINC3S0(L).XC3S0(1  ,L ) , YC3S0I1  ,L )  ,ETD,SOEG) 

I 

JCIOOI 

FTDSA.DI  IS|LI=5DEG 

I 

JCIOOI 

NRR«NNR«NR  <L) 

I 

JCIOOI 

10 

CONTINUE 

1 

JC  I  COL 

5 

CONTINUE 

1 

JCIOOI 

DO  3  L=  1  *2 

1 

JCIOOI 

TEQPO(U*TEQPO(LI/NS 

) 

JCIOOI 

3 

CONTINUE 

1 

JCIOOI 

IF  1 1 PRS.NE .1 IGOTO  50 

1 

JCIOOI 

WR1TEIMOT.IOOI  ICYCL  E, INCYL 

r 

JC  IOOI 

00  AO  L - 1 1 2 

I 

JCIOOI 

WRITE (MOT, 1011  AS  IDE  CL  1,1 1 5, IS* 1. NS  1 

1 

JCIOOI 

WRITE (MOT, 102 1 ASTYP(l) ,(FDD5A0(IS, L 1,15-1, NS  1 

I 

JC  IOOI 

KRITE(MOT,102IASTYP(2) , ( FSOSAO ( I S, LI , 15-1 ,NS 1 

I 

JCIOOI 

WRITE (MOT ,1021ASTYP 13) , IFTDSADIIS.LI  ,1S*1,NS1 

I 

JCIOOI 

WRITE(MOT,103I 

I 

JCIOOI 

40 

CONTINUE 

I 

JCIOOI 

50 

RETURN 

1 

JCIOOI 

100 

FORMAT! *1', 'TABLE  N2A  CYCLE’, 2X,IA,IBX,*D  ELI  VERY 

SYSTEM  », 

1 

JCIOOI 

•  ’OEGRAOAT IUN  FACTORS  OUE  TO  CCC  0 EGRADAT ION  •  / 10X , • 

SUBCYCLE* , 

I 

JCIOOI 

0  2X ,  I  A/I  X, I I9IIH-1) 

I 

JCIOOI 

101 

FURMAT) • 0  * , A A , *  SI D E * , 5X , • 5 E CTOR  * , 6X  , 8 11 2, BX 1 /5) 2H 

-)) 

1 

JCIOOI 

102 

FORMAT  1 ’O' ,A8, *  SYSTEM*, 8X,8(F7. 3, 3X)J 

I 

JCIOOI 

103 

FORMAT)////) 

1 

JCIOOI 

ENO 

1 

JCIOOI 
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SUBROUTINE  NUCCCO  I  JCIO0I 

C  .»«»»«. ».****»**»*»*,«!  j( 1001 

C  NUCCCO  DETERMINES  THE  C«*3/0  FACTORS  FOR  AIR8ASE  ASSETS  AT  THE  I  JCI0O1 

C  ENO  OF  EACH  NUCLEAR  /  CHEMICAL  SUBCYCLE  I  JClOOl 

C  JClOOl 

REAL  NSUTO.NTSUOT,  1NTOA  ,  INTOE,  INTOS  1  JClOOl 


C0MM0N/8B8 / 


C0MMUN/TNFSC1/1NABF  18 ,2  1  , 1  NA8R  18  ,2  I  ,  INA 8  Z 12  1 
C0MMCN/TNFSC2/NC3S0I2I , X C3 SO ( 8 ,2 ) , YC3S0 1 8 , 2 )  , 

•  FOOSA018.2) ,F SOS AO  IB  ,21 , F TOSA 0  1 8 , 2 1 , 

*  FA80CC12) ,ABSFCC18,21,ABSRCC1E . 2 1 , A8CZCC (2 1 , 

•  FSSMCC12) .TSSMIRIB ,2),SSSMIH18 ,2) ,SSSM ILt8 ,21 , 

*  FSAHCC12) ,TSAM1R{3,21,TSAM12<2) .SSAHIF 13,21 
COMMON/TNF  SC3/NC3O0  1 2 ) , XC300I8  ,2  I , YC 300 (8 , 2 1  , 

♦  NC0MDI2I , X  COHO  1 8 ,2 ) , YC0M01B.21  , 

*  FCLWLII0.21 
REAL®8  ATYPI3) 

01  MENS  1  UN  NNA8F(8,2I,NNA8R18,2t,NNABZ12I,10PTHC71 , IS  10 (7) 

01  MENS  I  ON  ASI0EI2) 

OATA  ATYP/ 'FORWARO  REAR  *, •  COHMZ  •/ 

OATA  ASIOE/’BLUE *REO  •/ 

OATA  NNA8F  ,NNA8R  ,NNA8Z/39®0/ 

OATA  10PTH  /3, 2, 1,4, 1,2, 3/ 

OATA  1S10  /2, 2, 2, 0,1, I ,1/ 

MOT*  JCON 
OO  2  L  =  I,2 
NNABZ (L I *0 
"  ABCZCCIL 1  =  0. 

OO  3  1 S  =  I ,  NS 
NNABFI1S.L 1=0 
NNA8R 1 1 S , L  )  *0 
ABSFCCI I  S  »  L  I  =  0  . 

A8SRCCI IS, 0*0. 

3  CONTINUE 

2  CONTINUE 

CALL  TAGINBA.NS, I AS AS .N0FA8 , NORAB , ISTAT1 

00  9  1=1, NA8 

IWOROI  13,1  1  =  100 

1W0R0 ( 14 , 1  1  =  100 

10C  =  IAF8A1 I  1 

1S=M0D(LCC-1,NS)+1 

IST=1STAT1 LCC1 

L= 1 5101  1ST  I 

M=I0PTH(IST1 

00  TU  lb, 7, 8, 9), M 

C  OEGSRF.R.C  *  OFGRADEO  OPERATING  CAPABILITY  PER  NOTIONAL  BASE 
C  (FORWARD, RFAR  OR  COMMZ)  »  SUM  OF  OP.  CAP.  OF  ACTUAL  BASES  IN 

C  SECIUh  UIVIOFD  BY  NO.  ACTUAL  BASES 

6  ABSf  CCCIS,  LI  *ABSFCC(  I  S.LMOCNUCUJ 
NNA8F1  I  S,L  l  =  NNABFC  IS.LM1 

GOTOS 

7  ABSRCC(IS,LI=ACSRCCnS,L)«OCNUCU) 

NNARRUS.L  )*NN  ADR  1 1  S  ,LI  ♦  I 

GUIU9 

8  ABCZCC(LJ*ABCZCC!U«0CNUCC1» 

NNA0ZILI*NNABZ.1LI*1 

9  CONTINUE 
00  S  L*  1  >2 
00  9  1 S  »I  ,NS 

1F1 1CYCLE.GT .1  I GOTO  10 
INABF(1S,L)  =  NNABF(  IS, LI 
1NA8R (1S,L1=NNABR1IS,LI 
INA82IL)  »NNADZ(LI 
10  CONTINUF 

IF  CINAIIF  IIS.LI  .Lt.tIABSFCC<IS,Ll«0. 

IF (  INABK ( 1 S , L I  .LE.0IA8SRCC (I S,LI«0. 

1F1NNA8F1 1 S.Ll .GT.0IA8SFCC I IS, LI »A8SFCC 1 1 S ,L > /NNA 8 F II 5 ,L I 
IF 1NNA8R (1 S, LI .GT .0 1 A8SRCC ( I S , L 1 >A 8SRCC ( I S , L ) /NN ABR ( I S ,L I 
A  CONTINUE 


I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
1  JClOOl 
I  JClOOl 
I  JClOOl 
1  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
1  JClOOl 
1  JClOOl 
I  JClOOl 
1  JClOOl 
I  JClOOl 

i  jciooi 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
1  JClOOl 
1  JClOOl 
1  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
I  JClOOl 
1  JClOOl 

i  jciooi 

I  JCIOOI 
I  JCIOOI 

i  jciooi 

I  JCIOOI 

i  jciooi 
I  JCIOOI 

i  jciooi 

I  JCIOOI 
I  JCIOOI 
I  JIIOOI 
I  JCIOOI 
l  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
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IFl!NA8Z(L).LE  .0 1A3CZCC I L] =0  . 

IF  INNA8ZILI  .GT .0  I AB CZCC  C L ] =ABCZCC t L I /NNA8 Z t L I 
5  CONTINUE 

IFI IPRS.NE  .1  IGOTO  20 
WRITE IMOT, IDOI  ICYClE.INCYL 
00  'AO  1  =  1,2 

WRITE {NOT , 1011 ASIOE ILI , I  IS ,! S*1,NSI 

WRITE {HOT, 1021 ATYPC I  I, I (HNA8F t IS ,L  I , ABSFCC 1 1  S  ,L  I  I ,15  =  1 ,NS> 

WRITE 1MCT, 102 1  AT  YPI2I.lt NNAKR I  IS ,L I , ABSRCC 1 1  5 ,L I  I ,15  =  1, NS  I 
WR ITEtKOT,102)ATYP(3),NNABZIL)  ,A8CZCCIL1 
AO  CONTINUE 

20  CONTINUE 

RETURN 

100  FORMAT! ’1*,'TA8LE  Q1  CYCL E  •  ,2X, TA , 18X , ’A I RBASE  DEGRAOATI ON  », 

•  'FACTORS •/ 10 X, 'SUBCYCLE’ ,2X, I A/1  X, 119 II H-I) 

101  FORMAT! 'O’ ,AA,  '  SI OE ’ , 5X , ' SECTOR ’ , 7X , 8  1 1 2 , 10X >/5 I 2H  -I.13X, 

•  81 ’R’,2X,'0EGRA0E0  ’II 

102  FORMAT  I ’0 ’ , AB , 1 A  IRS ASE S ’ ,6X , 8  I  12 ,2X, F5.3  ,3X I  I 
ENO 


I  JC 1001 
I  JC 1 001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JC I  00 1 
I  JCI001 
I  JC  I  001 
I  JC I  001 
I  JC I  DO  1 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI0D1 


FUNCTION  NWHINV(IWC,IWS,KI  YD,IP05.IS,L,  1FLAGI 
C 

C 

C  ROUTINE  ESTABLISHES  THE  CURRENT  INVENTORY  FOR  XIYD  YIEL05  FOR 

c  each  weapon  category  in  position  ipos  in  sector  is  for  side-l, 

C  IT  ALSO  ESTABLISHES  THE  MAXIMUM  NUMBER  OF  ROUNOS  WHICH  CAN  BE 

C  FIREO  FROM  A  GIVEN  POSITION  ANO  RETURNS  THE  SMALLER  OF  THE 

C  TWO  VALUES  AS  THE  NUM8ER  OF  ROUNOS  AVAILABLE. 

C  FUNCTION  NWHINV  IS  CALLEO  BY  NUCWPS  AND  PREYLD. 

C 

c 

C  uoit,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

C 

REAL  NSUTD.NTSUOT.INTOA, INTOE, INTOS 


C0MM0N/8BB/ 

aataaaaaoaoaaaaeaaeaaaeaaaBaaeaaaaeeaaaeaaaeaaBaaaasaaaaaaaaeaaaeaaaaeaaeeaeeeae 


C0MMCN/LUCAL1/ AIWCI3) , AS IOE I  2) ,N I W AS, NN I  WAS  I  2  I ,NPT 17 ,A ,30  I , 

X  IWLIOS 1100 ,2  I , IWLCOT  1 1  00 , 2 1 , I WLTZN 1 1 00 ,2  I 

1  , I W  LT  LQ I 100,21 , IWLBTl 100,21 , IWLI 100,2  I ,WLYLD 1100 ,2 ) 
X  ,XIWY(A2,2I  ,KIWYF  (A2,2)  ,KIWYHA2,2)  ,NNYOS  I  21 

2  a WLCEP 1 100,21 , 1 WLHOBI 100 , 2  I 
COMMON/LOCAAl/NSFRO 19,2,21 ,NSFRSI5,2,2I , 

1  N5FRTIS,2,2I ,NOT 

CQMH0N/AFSTF2/  AF0IMI22,4I 

COMM ON /TNFSC2/NC 350(2)  , X C3 SO  I  8  ,2  I , YC3S0  18 ,2  I , 

»  F00SA0I8,2 I, F SOS AO  I  8  ,2) ,FT 05 AD  I  8,2  I , 

®  FABOCC 1 2 )  , A8  5F  CC 18 ,2  I,ABSRCC(8 ,2I,ABCZCC12I, 

*  FSSMCC 12 )  , TS5M I R 1 8  ,2  1 , 555M IM I  8 ,2) ,5S5MILC8 ,21 , 

*  FSAMCC (2)  ,TSAMIRI3,2),T5AMIZI2),SSAMIF(3,2) 

C 

C  CHECK  FOR  MULTIPLE  YIELD 

C 

IYO'KIYO 

IF  I IOLYLOI IWC,  IWS.LI .EQ.1I  IYD  =  1 
LI S  =  L*2® 1 1  5-1 ) 

C 

C  DETERMINE  WEAPON  CATEGORY 

C 

GO  TO  (100.200  ,300)  ,IWC 
C 

C  OIVISION  WEAPON  SYSTEMS 

C 

100  NWHINV=N0WH0(IW5,IYD,LISI«F0SP0SI1W5,1P0S,LI 
IFI IFLAC.E0.2)  RETURN 


I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 


NNWFIR  =  NOWSI 1 1 WS , I S,L I «F0SP05( INS, IPOS ,L) «HNFRO I IWS, LI*  C  JCIOOI 

♦  FOOSAOIIS.LI  -  N5FRDIIWS,IP0S,LI  C  JCIOOI 

IFINNWFIR  .LT.  NWHINV)  NWHINV  =  NNWFIR 
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C 

RETURN 

C 

C  SECTOR  WEAPON  SYSTEMS 

c 

200  NWH1NV=NSWHSIIWS.IYO,LIS)»FSSPOS()WS.IPOS,L) 

IF  (  )  FLAG  .EC. 2)  RETURN 
C 

NNWFIR  =  NSWSI  (IWS,)SfLI»FSSPOS(IWS,)POStLI*HNFRSnWS,lI» 

•  FSOSAOIIS.L)  -  NSFRSIIWS.IPOS.L) 

IF ( NNWF ) R  .IT.  NWHINV)  NHHINV  *  NNWFIR 
C 

RETURN 

C 

C  THEATER  WEAPON  SYSTEMS 
C 

330  NWH1NV»NTWHT(IWS.IY0,L)»FTSP0S<IWS,1P0S,LI 
IF  {  IFLAG.EQ.2)  RETURN 
C 

NNWFIR  =  NTWSI I IWS# I  5  .  L I 4FT5P0SI IW5 ,IP05»L)*MNFRTCIWS ill* 

•  FTOSAOIIS.L)  -  NSFRTtIWS.IPOS.L) 

IF  (NNWF  IR  .LT.  NWHINV)  NWHINV  «  NNWFIR 
C 

RETURN 

C 

END 


Subroutine  DAMEVL 


00  775  I  AT  *  I  ,7 

c 

C . GET  NUMBER  OF  SHEITEREO  ANO  UNSHELTEREO  A/C  OF  TYPE  TAT  IN 

C  PARKING  AREA  IPR  IN  OROER  TO  CALCULATE  ACTUAL  AIRCRAFT  ANO 

C  SHELTER  KILLS. 

C 

RSH-0 . 

NSUM-0 

00  750  IATT=I,7 

750  IF  (  IPSHLAI  IATT,U.LT.IPSHLA<IAT,U  I  NSUM  *NSUM*NACTPA  C I  ATT ,  IPR ) 
IF  INSUM.GT  .NSHPAIIPR) I  GO  TO  755 
RSH  -M  I  NO  INSHPAIIPRl-NSUM.NACTPAI  IAT.IPRI! 

755  RNUSH  »  FL OAT  I N ACT P A 1 1  AT . I  PR  1 1 -  RSH 

APOMIIAT)  -  APOM(IAT)  4  KNUSH»DAMM  UPA  I 
APOM  HAT  J-APOM  1 1  AT  I  *RSH*OAMS  (  JPA I 

APOMM  1 1  AT  I  =  APOHH  1 1  AT  I  4  RNUSH* 10 AMM l UP A  1  -  OAHAIJPAI) 

APOM  T  DAT)  *APOMT  1 1  AT  1 4RNUSH»0AMA  IJPA  1 4RSH»0  AMS  I JPA  I 


775  CONTINUE 

C  SHELTERS  OESTROYEO 

SHOW  *  SHDM  4  OAMSIJPA) »FLO AT ( NSHP A{ IPR) 1 
SHOMT  *  SHDMT  4  OAMSIJPA I^FLOATINSHPAI IPR) I 
7B0  CONTINUE 
790  CONTINUE 

ARHLF  =  20000000. 

OLKLC  =  ARC/ARHLF 

IF I0LKLC  .GT  .  1. 1  OLKLC  =  I. 

C  THIS  IS  NECESSARY  SINCE  LETHAL  AREA. MAY  COVER  MORE  THAN  AIRFIELO 

OLKLC  =  OLKLC»ARHLF«POENSS/IOOOOOO. 

CCTEM  =  CCTEH  4  ARC*POENSS/I 000000. 

CFTEM  »  CFTEM  4  ARL*POEN 55/ 1000000. 

c 

C . PRINT  A  5UMMARY  OF  OAMAGE  INFLICTEO. 

C 

IFIIPRS  .NE.  I  I  GO  TO  6016 

WRITEUNU,6015)  IAB ,DLK L L, OLKLC , I A  POM 1 1  ACT  I , I  ACT  *  1.7  I , SHOH , 

•  TMPLOW 
6016  CONTINUE 
C 

C . UPOATE  NUMBERS  OF  A/C  SHELTERS  ANO  PEOPLE  ON  AIRBASES 

C 


C  JCIOOI 
C  JCIOOI 


C  JCIOOI 
C  JCIOOI 


C  CJIOOI 


I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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DO  810  1  AT *1 ,7 

IWOROOAT,  IA6)*)NQRDt)AT,IAB)-IFIX(APDM{IAT)) 
IF  ONORDIIAT  .lABJ.LT.D)  1NDRD 1 1  AT  ,  IA8  )  *D 
810  CONTINUE 

WORD  tl  1,1  A8)  =  IW0RD  Ill,  1A3)-IFIX(SHDM) 

IF  I  I  WORD  { 1 1 ,  1AB)  .LT.D  )  1  WORD  1 1 1,  1  A  8  )  'D 


1WQRD112,1AB)'IWQRD(12»1AB)-1FIX)0LKLL)  I  JCIDDI 

IF(IKCRDC12,IAB1.LT.D)  1  KD  R  0  C 1 2 ,  1  A  B )  -D  1  JCIDDI 

IFlTPML  .LT.  0.0001  )  GO  TO  811 
TE  HP  = I WORD  I !  3,  IAfi) 

WORD  tl'J,)  Afa)  =  T) IKPMl.-DLKLL/TPHL  J  ♦.& 

811  CONTINUE 

C  CALCUt A T F  CAPABILITY  Of  AIRBASE  INDEXED  BY  IAB  I  JCI001 

T£  HP  > I  NURD 1 1 3, 1 A b 1  I  JC 1001 

TEHP*1.-T£HP/100.  I  JCID01 

CALL  CVFWtN0CDPCU2),XQCDPIl,l2).Y0CDP«l,l2),TEMP,PDEG)  I  JCIDDI 

AaD£G*AMINllPD£G,TMPLQW)  1  JCIDDI 

OCNUCIIAB) 'OCNUCI IAB)»ABDEG  1  JCIDDI 

DO  812  I  AT  . *  1,7 

CA  DAM  1 1  AT  t  L2  )  =■  CAD  AM  1 1 A  T  ,  L2  )  *  APDHH  E1AT  ) 

812  CONTINUE 
22D  CUNT [HUE 


C  END  DF  DO-LOOP  ON  NUCLEAR  FIRE  MISSION  I  BEGUN  IN  SECTION  3DD 

III  NAIM  .10.  0  1  GO  III  22 1 
C  UP  DA  I  I  I  (I  I  ALA 

TCANAE ( JS, L2  )  «  TC ANAF I JS ,L 2 )  4  DLKLLT 
DO  813  I  AC  *  1.7 

TDSNAC1IAC.JS.L2I  *  TDSNAC I  1  AC  ,  JS  ,  L2  )  ♦  APDHTIIAC) 

TDMNACt IAC  ,JS,L2)  =  TDKNAC11AC.JS.L2)  4  APDHH  tl AC ) 

813  CONTINUE 

TDSNAS1 JS.L2)  '  TDSNASIJS.L2)  4  SHOMT 
IF  1 1  PR  S  -NE.  1)  GO  TO  6021 

NR  I TE II NG ■ 6D2D )  DLKLLT,  l APOMT II  ACT  1 , I ACT  «  1,7) .SHDHT 
6021  CONTINUE 
221  CONTINUE 
C 


A-3.  NUCLEAR  ESCALATION  DELAY 


This  section  completely  lists  subroutine  EDELAY,  in  which  the  delay 
in  the  preferred  nuclear  escalation  state  is  determined,  and  subroutine 
NUC1,  which  calls  EDELAY. 


SUBROUTINE  EDELAY 

c 

c  . . . 

c 

C  ROUTINE  DETERMINES  THE  PROPOSED  ANO  CURRENT  STATE  OF  NUCLEAR 

C  ESCALATION  ANO  THE  DELAY  TIKE  BEFORE  THE  PROPOSED  STATE  CAN  BE 

C  ACTIVATED. 

C 

C  . . . . . 

C 

REAL  NSUTD  .NTSUDT,  I  NTDA  ,  IN  TO  E  ,  INT  0  S 


C0MM0N/B88/ 

000000 00 000000000000090000000000000000000000000000000000*00000000000000000000000 


COHMON/TNF  5CA/NEDLY (2) .XEDLY (8 ,2) .YEDLYI8 ,2,2) ,  I  JCID01 

•  JESC18»3,2)»IWAUT(8,2),IFPLS{8»2),  I  JCIDDI 

*  TECPDI2),SE0PD18,2),CTIME(8,2)  I  JCIDDI 

REAL*8  A0UTI8) .ANONE.ADELAY.APRES  I  JCIDDI 

REAL**.  ASIDE  12  ),DTIHE(8  )  .C0HH0L8)  1  JCI0D1 

DATA  ANONE.ADELAY.APRES/’  NONE  DELAYED’,'  PRESENT'/  I  JCI0D1 

DATA  AS1DE/’8LUE  ’ » 'RED  •/  1  JCIDDI 
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1N0= JCUN 

1 

JCI001 

IF  ( 1  PRS.NE  .0  IWR1TE  (  1  NO. 9 0001 1  CYCLE  ,1NCYL,LIS  ,15*1  ,NS) 

1 

JCI001 

00  1C00  L=l,2 

I 

JCI001 

00  1200  IS=1,NS 

1 

JC 1001 

OE  L  AY  =0  . 

1 

JCI001 

CDEG=SQRT(TE3PO(L)»SEOPOC1S,L) I 

I 

JC1001 

COM MO ( 1 S ) - CO EG 

1 

JC1001 

00  1205  1 T  C *1  *  3 

1 

JC 1001 

IF  C  JESCI  1S.1TC  .Ll.LT.O.OR.JESC  (IS,  !TC,  LI  .GE  .  1  ESC  ( 15 , 1TC ,  LI  1 

1 

JCI001 

♦  GOTO  1205 

1 

JC1001 

ITMP=)ESC()S, ITC.Ll 

1 

JC1001 

IF(JESC(IS,ITC,L  I.NE.O)  1TMP  =  -1TKP 

1 

jciooi 

JESCI  IS.  ITC.Ll = I TMP 

r 

JCI001 

1205 

lESCnS.lTC.Ll-O 

j 

JCIOOI 

lFUWAUTUS.Ll  -NE.OIGOTO  1215 

i 

JCIOOI 

00  12)0  110=1.3 

i 

JCIOOI 

1F(JESC(IS, ITC.Ll. NE.OIGOTO  1220 

i 

JCIOOI 

1210 

CONTINUE 

i 

JCIOOI 

CT 1ME I IS.L 1«0. 

i 

JCIOOI 

DT IME ( 1 S I»0. 

i 

JCIOOI 

GOTO  1200 

i 

JCIOOI 

1220 

I W  AUT (1S.L)=1 

i 

JC1 001 

CTIMCCIS.LI=0. 

i 

JC  1001 

1215 

lFIlFPLSUS, LI  .NE.OIGOTO  1225 

JCIOOI 

CALL  CVFW(NEOLY(L) .XEOLYCl ,L 1 , YEOL Y< 1 , 1 ,L 1 ,C0 EG ,OEL A Y1 

i 

JCIOOI 

GOTO  1230 

i 

JCIOOI 

1225 

CALL  CVFWCNf OLYCLI .XEOLYCl ,L 1 ,  YEOL YC 1 , 2 ,L 1 ,COEG,OELA Y  1 

i 

JCIOOI 

1230 

CTIMEdS.Ll’CTIMEOS, 11*12. /NN  SC 

i 

JCIOOI 

OT  IMl  (151*01  LAY 

l 

JCIOOI 

IF(OtLAY.GT.CT)ME(lS.C))GOTO  1200 

l 

JCIOOI 

00  1235  1 T  C  *  1 «  3 

i 

JCIOOI 

IE  SC  ((S,  IT  C.L  1*1  ABSIJESCCIS,  ITC.Ll  1 

i 

JCIOOI 

1235 

JESCdS.  ITC . L  1  =0 

i 

JCIOOI 

I W  AUT IIS.L 1=0 

i 

JCIOOI 

1FPLS(IS,L1*1 

i 

JCIOOI 

1200 

CONTINUF 

i 

JCIOOI 

11  ( tl'KS.IO  . 0  1 C. (IT Cl  1000 

l 

JCIOOI 

NR  1 1 1  (imi,9005)AS10t(L) 

i 

JCIOOI 

00  1020  lS’l.NS 

l 

JCIOOI 

AOUT I 1 S 1 =ANONE 

l 

JCIOOI 

IF(IWAUTdS.L)  .EO.OIGOTO  1015 

i 

JCIOOI 

AOUT  MSI  =AOELAY 

i 

JCIOOI 

GOTO  1020  . 

i 

JCIOOI 

1015 

00  1016  IT  C  =  1 , 3 

I 

JCIOOI 

lFIIESCtlS,  ITC.Ll.  NE.OIGOTO  1018 

i 

JCIOOI 

1015 

CONTINUE 

i 

JCIOOI 

GOTO  1020 

i 

JCIOOI 

1018 

AOUT  C IS) =APRES 

l 

JCIOOI 

1020 

CONTINUE 

i 

JCIOOI 

WRITE  UNO,  900!  )(  AOUT  1 1 51 . 1S-1.NS1 

i 

JC  1001 

WR  I  Tf  (I  NO. 5  002  KCT  IMF  (  1  S  ,L  I  ,  IS'I  ,NS1 

T 

jc  iooi 

WR IT  L ( INU.9003) (OT IME ( IS) ,1S»1 .Nil 

1 

JC  1001 

WRITE  Cl  NO,  9004  KCOMMOCI  S) ,  15-1  ,NS) 

I 

JCIOOI 

1000 

CONTINUE 

1 

JCIOOI 

9000 

FORMAT!/ ///IX, ’TABLE  NAA  CYCLE  ’ , 1 4 ,5X , ’DEL AYE 0  ESCALATION ’/10X 

»  I 

JCIOOI 

••SUBCYCLE  ’, 14/ IX, 1 19 C1H-1//7X, ’SECTOR ’,5X, 8 (11,9X1/1 

I 

JCIOOI 

9001 

FORMAT ( 1 X ,  •  ESCL  STATUS  ’I0(A8,2XII 

1 

JCIOOI 

9002 

F0RMAT11X,  ’CURRENT  TIME  • 10 (F8. 1 , 2X 1 1 

1 

JCIOOI 

9003 

FORMAT (IX,’  OELAY  TIME  • 1 0 (F 8 . 1 , 2X 1 1 

1 

JCIOOI 

9005 

FORMAT ( IX, ’COMMO  OEGRAO  • 10 (F8.4 , 2X1 1 

I 

JCIOOI 

9005 

FORMAT! ’O’ ,A4, •  SIDE’/5(2H  -1) 

1 

JCIOOI 

RETURN 

C 

ENO 
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SUBROUTINE  NUC1 
C 

C 

C  5EC0N0ARY  CALLING  PROGRAM  FOR  THE  ROUTINES  WHICH 

C  DETERMINE  NUCLEAR  ESCALATION  STATES,  DETERMINE 
C  THE  NUMBER  OF  NUCLEAR  WEAPON  SYSTEMS,  AND  REALLOCATES 

C  STOCKS  DF  NUCLEAR  WARHEADS  TO  SUPPLY  POOLS. 

C  SUBROUTINE  NUC I  IS  CALLED  BY  NUC  AND  CALLS  THE 

C  FOLLOWING  ROUTINES  ESCLAT,  NDSYIN  AND  WHINUP. 

C 

C 

REAL  NSUTD,NTSUDT,INTDA,INTDE,INTDS 

aaaaaaaaaaaaoaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaoaaaaaaaaaaaaooaaaooaaaaa 

COMHON/BBB / 


COMMON/IOC AL1/ AlwCI 3) ,AS  ID E ( 2 ) ,N I W AS ,NN 1  WAS C 2 ) ,NPT 1 7 ,A ,30  I , 

X  IWLIDSUOO.Z  I  .IWLCOT  f 100 , 2 ) , I WLT2N l 100 .2 > 

1  .IWLTLOI 100,2), IWLBT(100,2) ,IWLCI00,2) ,WLYLDI100,2) 

X  ,XIWY(A2,2),KIWYF<42,2),KIWYL(A2,2),NNYDS(21 

2  ,WLCEP( 100,21 ,1WLH0B{100,2) 
C0MK0N/L0CAA1/NSFRD(4,2,2),NSFRS15,2,2), 

1  NSFRT IS, 2 ,2) ,NDT 

COHMON/AFS  TF2/  AFDIM(22,«.I 
C 

ISaRISS 

c 

C  DETERMINE  ESCLAT ION  STATE 

C 

C 

CALL  ESCLAT 
C 

C  DETERMINE  IF  THIS  CALL  WAS  ONLY  FDR  ESCLAT  ION  STATES 
C 

IFfKFLAG.EQ.2l  GO  TD  IDO 
C 

C  DETERMINE  NUMBER  OF  NUCLEAR  DELIVERY  SYSTEMS 

C 

c 

CALL  EOELAY  I  JC100I 

C 

DO  ID  I S -1 .NS 
'  DO  ID  1 TC* 1 , 3 
DO  10  L -1 »  2 

IF  I  IESC  (1S,I1C  tLl.NE.O)  GO  TO  50 
10  CONTINUE 
GO  TO  IDO 
50  CONTINUE 
CALL  NDSYIN 
C 

C  REALLOCATE  INVENTORY  OF  NUCLEAR  WARHEADS 
C 

CALL  WHINUP 
C 

I  DO  CONTINUE 
RETURN 
END 
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A-4.  TARGET  ACQUISITION  PROCESSING  DELAY 

This  section  partially  lists  subroutines  TARACA  and  TADPAR,  in  which 
the  target  acquisition  parameters  for  active  and  reserve  division 
targets  are  determined . 


SUBROUTINE  TARACA 

c 

C0**oo«oaoooooooo*ooooaooaooaoao*ooo*ooaoo*oooooo*«o*oeao9o*9*0*ooo*o*eo 

C  TARACA  SIMULATES  ACQUISITION  Of  TARGETS  IN  THE  ACTIVE  BATTLE  AREA 

C  OF  A  GIVEN  SECTOR  BY  GROUND,  ARMY-AIR  ANO  AIR  FORCE  SENSORS 

C  SENSORES  MAY  OPERATE  IN  STANDOFF  IFIXEO  OR  VERTICAL),  5TAN00FF 

C  (MOVINGI  OR  PENETRATING  MODE 

C  SENSORS  HAY  BE  CONTINUOUSLY  OPERATING  OR  GLIMPSE  SENSORS 

C  CALLED  BY  TARACO 

C  CALLS  TARACE 

C*«**O««O*OOO*OOttOe9«»«O»«O**OO««64*4Oa*****O**#O***«a*»*9***O*O**0****6 

C 

REAL  N5UTO»NT5UOT*INTOA* IN7DE, INTO 5 

OOOO*OJOOOOOOOO*O»OOOOOOO#J9OOOO#*OO#O93O8OOI)OOOOi)«OO###O#9O#«9aa®O®OO«OOO***0*0 

CQMMQN/3BB / 

•9O9®9®OOa®9O39O99O9O®33000«O®®®0®990000OO0O0O®9flO90tO9O9*000OO9®O00O900O00O000a 

C0MM0N/TNFSC1/  INABF 18,21 ,  ]NA8R(8,21,INABZt21 
COMMON /TNF SC2/NC3SD (21 ,XC3SD  18,21 ,YC3S0( 8,21  , 

•  FDD5ADI8.2) , FSD5ADI8 ,21 ,FTDSA0I8,2I , 

•  FABDCC I  2 1  ,ABSFCCI8.21.ABSRCC(8,2I,ABCZCCI2I, 

»  FSSMCCI2J ,TSSM]RI8,2),5SSHlK(8,2I,SSSHILt8  ,ZI , 

«  FSAMCCC2) ,TS AMIR (3,2) .T5AM1ZI21 .SSAMIFI3.2I 

COMMON/TNF SC3/NC3DD (2 ) ,XC3DD (8,21 ,YC 3001 8,21 , 

•  NC  OMD (21 , X  COMO (8 ,2  I ,YC0M0(8,2! , 

«  FC  LWL  ( 10 , 2 1 

COMMON/TNF SC A/NEULY (2) .XEOLY  (8  ,21  ,  YE DLY  (  8 ,2 , 2  I , 

•  JESC(8,3,21,IWAUT(8,21,IFPLS(8,21, 

«  TE0PDI2) .5E0P0I8 ,21 ,CT IME(8,2) 

COMMON/TNF SC 5/N&SFD (2) .XG5F0 (8 ,2 1 , YGS FD ( 8 , 2 1 , 

«  ,N»AFD  (21  .XAAFO  (8  ,21  ,YAAFD(8,21  , 

«  NAFFD (21 .XAFFD (8 ,21 , YAFFD(8,21 

COMMON/LCC  AL  3/  JS 
C 

C  THESE  ARE  WORKING  VARIABLES  TARGET  ACQUISTION  NE  EOS  ONLY. 

common  /taco/  vistwziao, n i .ceitwz  iad, n i ,rvlost (6) , 

1  1KZBA012],  KTERTA1112) 

£•••••*•*•••••••••••••••••••••••• 

DIMENSION  PGSDT (7, A, 301 .POSZOS ( 7 , A, 30 1 , GAP l 2 1 , AS IOE ( 2 1 
LOG  IC  AL*  1  LJC1  (A1.MJC1  (A) 

.  E0U1 VALENCE (LJC1 (I ) ,TJCI ), (MJCI(l)  ,1 JC I  I 

OATA  ASIDE /’BLUE*, 'RED  V  1  JC1001 

C100)  INITIALIZE  WORKING  VARIABLES 

IJC1*0 
FNNSC  SI  . 

N2  *0 

Dll  b  L'l  ,2 
N1 *  1 *N2 

N2  =  112 ♦NO  S(  JS  ,L  ) 

N3*NSU(L) 

NA.NZ(L) 

IF  (IUTAM.EQ.I)  GO  TO  A 

C....  TARGET  ACQUISITION  MODEL  NOT  USED,  DETECTION  PROS.,  SENSOR  ERROR 
C  ANO  DELAY  TIME  ARE  USER  INPUT 

DU  3  1 0  S  -  N I  ,N2 
DO  3  1 SU  =  1  ,N3 
00  3  I Z  *  1 , NA 

PSZDDSI  ISU.1Z,  IDS)»PSZD(ISU.IZ,U 


I  JCIOOX 
I  JC1001 
I  JC1001 

i  jciooi 
I  JCIOOI 
I  JCIOOI 
1  JCIOOI 
I  JCIOOI 
1  JCIOOI 
I  JCIOOI 
1  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
I  JCIOOI 
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N5  =  NZ ( 1 1  I 

N6=NW(LI  I  JCIOOl 

U'NDStJS,!!  I 
1JJ  *  NDSIJS.Ll 
C 

C....  GIVEN  A  SENSING  AND  A  TARGET  DIVISION,  COMPUTE  DETECTION  PROS  FORI 
C  EACH  SENSOR  TYPE(IGS)  VS  EACH  SUBUNIT  TYPECISUl  IN  EACH  ZONECIZI 


21  ILI ” I  OLA  BA IlCTSDvJS I 

IFIL.EQ.2I  ILI*IDLABAllCTSO*IJ,JS) 

ITI*ITD(IL1> 

CDHD-D.  1  JCIOOl 

DO  211  IW*1,N6  1  JCIOD1 

TOEW ; TWO  1 1 W  ,  I T  1 )  I  JCIOOl 

IFnOEV.GT.O.ICOHD«COMO*FClHL{IH,ll»«DlVnW,UIl/TOEV  I  JCIOOl 

211  CONTINUE  I  JCIOOl 

CALL  CVFW(NCDKD(L),XCOKDIl,L),YCOHD(l,L) ,COHD  ,CCCD I  1  JCIOOl 

CALL  CVFW(NGSFD(LI,XGSFDII,L),YGSFD(1,L),CCCD ,COHD I  I  JCIOOl 


C....  TSX  =  LOCATION  OF  SENSOR  GROUP 
TSX=TSX+ITFAC»DVVOTHIITl 11/2. 

II  -  NOSIJS.II  ♦  ICTTO 

I F  C  L  -EQ.  21  II  *  ICTTD 

IL2  =  IOLABAIICTTO, JSI 

ITEHP  =  ICTTD  ♦  IJJ 

1FI1I.E0.  21  IL2  =  IDLABAI  ITEHP,  JS) 

IT  2  *  I  TO  I  I L  21 

C....  DSX  *  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDCE 


C....  PASOT  =  PROBIPARTIC  SENSOR  ACQUIRES  PART1C  TARGET  -  GLIMPSE! 

PA  SOT  *1.-1  l.-PDGE)»*t&LPGSllGS.LI*TACLI 
C....  TEMP2  IS  PROBABILITY  DF  NON-DETECTION  BY  ANY 

24  TE  MP2  *  ( 1 -PASOT I ®»T  E  HPI  I  JCIOOl 

IFITEMP2.LT. l.E-I0)TEMP2*0.  I  JCIOOl 

c....  sensor  of  this  type 

C....  TEMP2  *  PROBCNO  TYPE  1GS  SENSORS  ACQUIRE  A  PARTICULAR  TARGET) 

C....  TEMP3  *  PROBtAT  LEAST  1  TYPE  IGS  SENSOR  ACQUIRES  A  PARTIC  TARGET) 

TEMP3-1  .-TEMP2 

C....  PDSZOS  WILL  8E  USED  TO  COMPUTE  OVERALL  SENSOR  ERROR  AND  DELAY  TIME 
PDSZDSI  1SU  ,1  Z,  11  I*-PD5ZDS  <1  SU  ,1  Z,ll  I«  TEMP 3 
C....  FINO  RUNNING  VALUE  OF  PROBABILITY  OF  NON  DETECT  ION 
C....  PGSOT  *  PROBINO  SENSOR  OF  ANY  TYPE  ACOU1RES  A  PARTICULAR  TARGETI 
TJCI  =PGSPT  (!SU,!Z,I  1  I 
1FITJC1.EQ.O.IGOTO  24D1 
TJC1=TJC1»TEHP2 
IFITJCl.LT  .l.E-10ITJCI=0. 

PGSDT I  1 SU, I Z i I  1  I -T  JC 1 
2401  CONTINUE 

DO  27  1RBST=I,NN 

IF (RANGE  .LE.VHRBST I IRBST ,L) I  GO  TO  28 
27  CONTINUE 


1RBST=NN  1  JCIOOl 

C . TAESZD  AND  TADSZD  CONTAIN  INTERMEDIATE  CALCULATIONS  FOR  SENSOR 

C  ERROR  AND  DELAY  TIME 


28  TAESZDI  ISU.IZ,  ID  *  TAESZD  1 1  SU  ,  I Z ,  11 )  «  ITEMP  3*T  ACGSR  UGS  , 

»  IRBST, lll**2 

TADSZUl  ISU.IZ, II)*TADSZD11SU,IZ,11 MTEMP 3<>l T ADTG S 1 1GS  ,L  I  «COMD ) 

IF  I  IPRD.EQ.O)  GO  TO  25 

WRITEIJNUC.37DI  DINTEG, RANGE 

WRITE) JNUC  ,330  I  I GS, ILI, ISU.IZ, IL2 

WRITE(JNUC,200I  PASOT, TEMP3 

25  CONTINUE 

DY  =  DY  •(PZDPlHl  IZ  ,1 1  I»OVDPTH l  IT 2) /2  .) 

26  CONTINUE 
30  CONTINUE 

IF (IPWO.EQ.O)  GO  TO  31 
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C300)  TARGET  acquisition  by  army-air  sensors 

c 

C....  COMPUTE  DETECTION  PROB  EOR  EACH  SENSOR  TYPECIAS)  ON  EACH  TYPE 
C  ARMY-AIR  CARRIER! I  AC )  ON  EACH  MISSlONllM-I  STANDOFF,  *2  PENETRA- 

C  T1NGI  VS  EACH  TYPE  SUBUN1TIISU)  IN  EACH  ZONEIIZ)  OF  EACH  TARGET 

C  DIVISION (IDS) 

N7  *NAAC ( L) 

N3=NAS(L) 

Nb'NOSI JS,  1 1  I 

CEIT  =  CEITWZI ITT.IWZJ 

VIST*VISTVZI ITT, I MZ I/IOOO. 

CCCO*S£UPD (JS.LI 

CALL  CVFMNAAFOILI.XAAFOII ,L ) , YAAFD (1 ,L I ,CCC 0 ,COMD J 
C 

C....  ITERATE  FOR  EACH  OIVISION 
DO  80  1 DSs I , N6 
JDS* 1 DS 

IFtll.EQ.2)  J0S*J0S«NDSIJS,L1 
I L2  * 1 DL  ABA (JDS ,JS) 

I  T  2  =  I  T  D  (  I L  2 ) 

C 

C....  ITERATE  FOR  EACH  TYPE  OF  ARMY  AIRCRAFT 
DO  77  I A  AC  *  1 , N  7 

C....  PC  •  PROBICEILING  >  SENSOR  ALT ITUO  E) 

PC*0. 

IF  I AMOAAC II AAC ,L J.LE.CE I TI  PC*I. 

C....  DSX  *  HORIZONTAL  DISTANCE,  SENSORS  TO  TARGET  EDGE 
DSX-FOWLAC ( IAAC,LI*DVHDTH( IT2I 
C 

C....  ITERATE  over  mooel  type.  ik»i  is  stanooff  moving 
C  I M * 2  IS  FCRNARO  AREA.  2H*3  IS  OEEP  AREA  WHICH  DOES  NOT 

C  APPLY  TO  DIVISIONS  IN  THE  ACTIVE  BATTLE  AREA. 

00  7t  I  M  *  I  ,2 

C....  A5CP  -  NO.  OPERATIONAL  ARMY-AIR  CARRIERS  ON  MISSION  IK 

ASCP*(AACS( I AAC, JS,L)*AACDS( I  A AC , J 5, L ) I • ll-FR AAC I  II AAC , LI )• 

•  PAACAMIIAAC.IM.LI 

C....  ASCD  IS  NUMBER  OF  AAC  AVAILABLE  ASSUME  I  SORTIE/CYCLE 
C  ADJUST  VALUES  BY  THE  VARIABLE  RAASDT  ARMY  AIRCRAFT 

C  HAVF  MOSAnT  ncru  lirt-itn 

C....  UPDATE  RESULTS 

C....  PASOT  *  PROBIPAKTIC  SENSOR  ACOUIRES  PARTIC  TARGET  -  GLIMPSE) 

PASDT  *  I.  -  ( 1.-P0GE)*»(GLPASIIAS  ,LI»TACL) 

C....  TEHP2  *  PROBINO  TYPE  IAS  SENSOR  ACQUIRES  A  PARTICULAR  TARGET) 
bB  TEMP2»tl.-PASDTI**TEMPl 

IE (TEMP2.LT. I. E-10ITEMP2*0.  ! 

C....  TEMP3  *  PROBCAT  LEAST  I  IAS  SENSOR  ACOUIRES  A  PARTICULAR  TARGET ) 
TEHP3*I  .-TEMP2 

POSZOSt ISU.IZ, JOS) =P0SZ0 SI ISU.IZ, JOS) «TEHP 3 
TJC  I  «PGSDT  (ISU.IZ, JDS) 

IF  (  TJCI  .EO. 0.1  GOTO  680L 
TJCI=TJCI»TEHP2 
IFITJCl.LT  *I.E—LD)TJC1*0. 

PGSOT (ISU* I Z  ,  J  DS ) *  T JCI 
6801  DO  71  I  RE  S  T  *  I . NN 

IF (RANGE. LE.VHRBSTI IRBST.LI I  GO  TO  72 

71  CONTINUE 

IRBST  *NN  1 

72  TAESZOI  ISU.IZ,  JOS)  *  T  AESZD  ( ISU,  IZ  ,JDS  I  *  I TE HP3*TACASR( I AS , 


C 

CAOO )  TARGET  ACQUISITION  BY  AIR  FORCE  SENSORS 
C 

C....  COMPUTE  DETECTION  PROB  FOR  EACH  SENSOR  TYPE  I )AFS )  ON  RECON  A/C  CN 
C  EACH  H I S  SI  ON  1 1 M )  VS  EACH  SUBUNIT  TYPE! 1 5U )  IN  EACH  ZONEIIZ)  OF 

C  EACH  TARGET  OIVISIONIIOSI 

NR  I  *  I  I 

NR  2  *  N  R  (  1  )  I 


JCI001 

JC1001 


JCID01 


JCI001 


JCI001 

JCI001 
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1FIL.EQ.1IG0T0  809 
NR  1 -NR  1 1  I  ♦  1 
NR2  =  NR  1 1  I ♦ NR { 2  I 

809  DO  810  IRR'NRl »HR2 

IF  IJ5.GE.NHSRI  IRRIIGOTO  611 

810  CONTINUE 
1RR  =  1 

811  NR1=NLSR1 IRR I 
NR2'NHSRI I RR I 
CCCD=D. 

00  812  IRR-NR1.NR2 

812  CCCD=CCCD«SECPD(1RR,L) 

CCCO  =  CCCO/ INR2-NRI* 1 1 

CALL  CVFW1NAFFD|L),XAFFD{1,LI,YAFF0(1,LI  ,CCCD,COMDJ 
N3  =  NA  FS ( L I 

C....  PC  =  PROBICEILINC  >  SENSOR  ALTI 
PC  =  0. 

IF  I  AMOR AC  I L I  .le.ceiti  PC*1. 

00  95  IDS«1,N6 
JO  S  *  1 0  s 

IFIII.E0.2)  JDS  =  JDS  +  N0SIJ5,L) 

IL2-IDLAEA  IJDS.JS) 

IT 2 «  IT0I1L21 

C....  OSX  *  HORIZONTAL  distance,  sensors  to  target 

D5X=FDWLRAIL)»DVNDTHI1T2I 
DU  94  1 M  - 1  1 2 

IF  (RACAMUS,  IM  .LI.LT  ..0001  1  CO  TO  94 
C 

C....  AVAILABILITY  HAS  BEEN  ACCOUNTEO  FOR  IN  COMPUTING  NUMBER  OF 
C  MISSION,  RACAM.  ATTRITION  FOR  PREVIOUS  CYCLE  IS  NOT  IN  RACAM 

C  SO  AN  ATTRITION  TERM  IS  NEEDED 

C....  TEMP  =  NO.  OF  RECON  A/C 

TE  HP -RAC  AH  US,  IM,L)«{)  . -RA  Af  RM  (I  M  ,L  I  »F  RLPMA  (  IM  ,L  1 1  *SRR  AC  IL I /TNN  SC 
C 

C....  PROCEED  IN  A  MANNER  EXACTLY  ANALCOUS  TO  THE  PREVIOUS  SECTION 
DO  9  3  I A  F  S  *  I  ,  N  3 
OY  *  0. 

IF  *  I M  ,E0.  21  OY  *  DRAFT (L  I 
C....  TEMPI  *  NO.  (JF  SENSORS  PER  TARGET  DIVI5I0N 


C....  PA  SOT  =  PRUBIPARTIC  SENSOR  ACQUIRES  PART1C  TARGET  -  GLIHPSEI 
PA  SOT  *  1 •— ( 1 .-PDGEI«« IGLPAFSE IAFS.L  I*TACL I 
88  TEMP2=(1.-PASDT)**TEMP1 

IF ITEMP2.LT. 1.E-1D)TEHP2*0. 

TEMP3*1  .-T  EMP2 

PDSZ0S1 ISU.IZ, J0SI=P0SZDSlISU,lZ,JDSI«TEMP3 

TJCl-PGSOT 1 1  SU  ,  1 Z ,  J  D  5 1 

IFITJC1.EQ.0.IG0TU  B801 

TJCI*TJCI»TEMP2 

IFITJCI.LT.  1 -E-IOIT  JCI*0. 

PGSOTIISU, IZ , JOS  I s  T  J( I 
8801  DO  91  IRBST=I,NN 

IFlRANCE.LE.VHKBSTI IRBST.LII  GO  TO  92 

91  CONTINUE 
IRBST=NN 

92  TAESZOt I5U  ,IZ, JOSI  =  T AESZO (I SU, IZ  ,  JDS  I ♦ CTEMP3*TACAFRII AFS , IRS  ST  , 
»  L 1 1  0  s2 

TADSZDI ISU  ,1 Z , JOS) -TADSZOC 1 SU, IZ, JOS  I ♦TEMP3* ( TAOTAF ( IAFS,L)«COMO ) 


SUBROUTINE  TAOPAR 
C 

. . . 

C  TAOPAR  SIMULATES  ACQUISITION  OF  TARGETS  TO  THE  REAR  OF  THE  ACTIVE 
C  BATTLE  AREA  BY  ARMY-AIR  AND  AIR  FORCE  SENSORS 

C  CALLED  BY  TARACQ 

. . . . . . . 

c 


JC 1001 
JC1DD1 
JC 1 0  01 
JC  1001 
JCI001 
JCID01 
JCIDD1 
JCI001 
JCI001 
JC 1 001 
JC 1 001 
JC1D01 
JCI001 
JCIDD1 


JCI001 


JC1D01 


60 


APPENDIX  A 


kt  At  N5UIU,NISUUr,INIUA,INTUC.INTDS 


C0HM0N/8  88 / 

909000900099030000090000009090990900C9909990000009009999999990099999099999909999 

COMMUN/TNFSCI/ INA8F(8,2) ,INA8R(8,2I, 1NA8ZE2I  I  JC I  001 

COMMON/TNFSC2/NC3SDI2I,XC3SD<8,2),YC3SO(8,2) ,  I  JCI001 

•  FDDSADI8 ,2) , FS0SAD18  ,2) .FT0SADE8 ,21 ,  I  JCI001 

•  FA8DCCI2) ,A8SFCC<8,2),ABSRCC(B,2I,A8CZCCC2).  I  JCI001 

•  FSSMCC 12) , TSSM IR (8 ,21 .SS5MIMI 8 ,21 iSSSMIL (8 ,2) ,  1  JCI001 

»  FSAMCC (2  I ,TSAM IR ( 3 , 2  I , T SAM  I  2 { 2 1 ,SSAMIFI3,2I  I  JCI001 

C0MH0N/TNFSC3/NC3DD (2 1 , XC30D ( 8 , 2 ) , YC3DDI 8 ,2 1 ,  I  JCID01 

«  NCUMD<2I ,XC0MD<8 ,2l ,YC0MDI8,2) ,  I  JCI001 

•  FC  LW  l  (  10 , 2  I  1  JCI001 

C0MK0N/TNFSCA/NFDLY<2I ,XEDLY(8.2I , YEDL Y 1 8 ,2 ,2  I ,  I  JCI001 

«  JESIC8.3.21. IWAUTI8.2I ,IFPLS(B,2),  I  JCI001 

•  TE0PDI2I ,SEQPD<8 ,2) ,CT IMEI8.2)  1  JC1001 

C0MMDN/TNFSC5/NGSFD<2> .XGSFD18 ,21 ,YGSF0(8,2I ,  1  JCI001 

•  NAAFDI2) ,XAAFD<8 ,2) ,YAAFD(8 ,2! ,  )  JCI001 

«  NAFFDI2) ,XAFF0(8,2),YAFFD(8,2I  I  JCI001 

COMMON /LOCAL  3/  JS 


C  THESE  ARE  WORK  IMG  VARIABLES  TARGET  ACQUI5TI0N  NEEDS  ONLY. 

COMMON  /TACQ/  V I  ST W Z < 40 , 1 1 )  , CE I T WZ <40 , 1 i ) .RVLOST I  6 ) , 

1  I  WZ  BA  ( I  I  2  )  ,  KTERTAI  1121 

C  TARGET  ACQUISITION  DEEP  AREA  DETECTION  ROUTINE. 

DIMENSION  PDAASSU  ,71  ,  PD  AF  SS  I A  ,  7  I  ,  AS  IOE  <2  I 
DATA  ASIOE / ' 8  L  Ufc ’ ,  *  RED  •/ 

IFUUTAM.EO.il  GO  TU  20 

c 

C100)  DETECTION  PRUBAB1LITY,  SENSOR  ERROR  ANO  DELAY  TIME  ARE  USER  INPUT 


I  JC ) 00 1 


(TARGET  ACQUISITION  MOOEL  NOT  USE01 


DO  15  L*l,2 
Nl'NSUILI 
I  2  NZ I L I 

DO  10  I 5U= 1 fNl 

PSRADSI  ISU,LI=PSZD( ISU.I  ,L  » 

TAESRA(ISU.L)«TASESZ(I,l) 

TADSRAI ISU  *L I  =  TADT  S  Z  1 1  ,LI 
ID  CONTINUE 
15  CONTINUE 
RETURN 
C 

C200I  INITIALIZE  WORKING  VARIABLES 

c - 

20  ENNSC • 1 . 

INU 3  JNUC 

)F<  IPRS.NE  .01  WRITE  UNO,  1 00  1 1  CYCLE ,  JS 
00  80  L 1 1  >2 


I  JCI001 
I  JC  1 00 1 


c 

c 

1F(RACAN(JS,3,U.LT..0001)  GO  TO  65 
C  RACP  33  NO.  RECON  A/C  ON  OEEP  SEARCH 

RACP'RACAM  (JS,3,L)  Ml.-R  AA  FRM 1 3  ,  L I  »F  RLPMA  E3  .  L 1 1  *SRRAC  CL) /FNNSC 
00  60  I AF  S  *  1 ,N  A 

TEMP1*RACP«PRAFSMII AFS ,3,L)/MDIV0 
IF  I  TEMPI .LE. .0001  I  GO  TO  60 
DO  5D  I SU= I  ,N3 

TEMP»SWAFUS(  IAFS,ISU,LI»VELRAC(LI  •TAFSSDUAFS.LI/OAREA 
PASDT  *  1 .-EXP (-TEMPI 
TEMP2=(1 .-PASDTJ“»TEMP1 
PDAFSSI I AFS, ISU) =1 .-TEMP2 
PSRADSI  ISU,KI  =  PSRADS(ISU,KI*TEMP2 
50  CONTINUE 
60  CONTINUE 
65  CONTINUE 
C 

c 

C  SUMMARIZE  AND  NORMALIZE  RESULTS  IN  SAME  FASHION  AS  IN  TARACA 
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CCCD=5EQPD(J5,LI  I 

CALL  CVFWINAAFD(L)  ,XAAFO  U  ,L  I.YAAFOIl  til  ,CCCO  .COMOAA )  ! 

NR  1  *  1  I 

NR2=NR(1)  I 

IFIL.EQ.1IGQTO  809  ) 

NR1*NRC11«1  I 

NR2=NR(1  1«NR(2)  1 

809  DO  810  IRR=NR1,NR2  1 

IF  CJS.GE.NHSRI IRRIIGOTO  811  I 

810  CONTINUE  I 

IRR  e  1  I 

811  NR  1  - NLSR (1 RR  )  I 

NR  2C  NH5R (I RRJ  I 

CCCD^D.  I 

DO  812  IRR=NR1,NR2  I 

812  CCCD.CCCD.SEOPOI IRR,L1  1 

CCCD=CCCD/ (NR2-NR1 *1 J  1 

CALL  CVFN(NAFF0IL),XAFF0I1,L I  , YAFFO! 1 ,L  I  .CCCD  ,C0MD AF I  I 


DO  70  I5U-1.N3 
T5E  NSR  =0  . 

DO  66  IAS-1, N2 

15ENSR=TSENSR»P0AASS(1AS,ISUJ 

66  CONTINUF 

DU  67  IAFSM.N4 

T5ENSkO5ENSR*P0AFSSClAFS»lSUJ 

67  CONTINUE 

00  68  1  AS-  I  ,N2 

lFITSEMSR.EO.O.l  GO  TO  68 

PDAASS(IAS,ISU)-PDAASS(lASflSUl/TSENSR 

TAE5RA(I5U,K)  =  TAE5RACI5U,K)*CPDAA55(IAS*15UI*SFAA0ACIA5tLl)**2. 
TADSRA(I5U,K)=TADSRA(ISU,K)«PDAASSC1AS,ISU)MTADTAS( I AS ,L I «COMOAA ) 

68  CONTINUE 

DO  6V  IAF5  =1 *N4 

IFITSENSR.EO.O.J  60  TO  69 

PDAFSSCIAf  S,1SU)=PDAFS5I1AFS,1SUI/TS£NSR 

TAESP.At  ISU,K)  =  TAESRA(ISU,K)«IPDAFS5C  IAES,)SU)*SEAEOAIIAfS,LJI»*?. 
TAD5RAI  I5U,r.)*TA0SRA(lSU,K  I  «P0  AF  SS  O  AF5 , 1 SU  I  •  IT  ADT  AF  I  >AFS,L>« 

•  CUHDAF)  1 

69  CONTINUE 


JCI001 

JCI001 

JCI001 

JCI001 

jciaoi 

JCIDDl 

JC1D01 

JCID01 

JCI001 

JC1001 

JCI001 

JCIODl 

JCIDDl 

JCI001 

JCIDDl 

JCIDDl 

JCIDDl 

JCIOOl 


JC) 001 


A— 5.  INPUT  AND  MAIN  CONTROL 


This  section  completely  lists  subroutine  TMAIN,  which  controls  the 
overall  flow  of  the  TACWAR  combat  simulation,  and  subroutine  TNFINP, 
which  controls  the  C^/D  input  data  to  TACWAR. 


SUBROUTINE  TMAIN 

c 

Caaaaaaaaaaaaaaaaaaaaeaaaaaaaaaaaaaaa 

C  TMAIN  SETS  UP  A  CYCLE  COUNTER  WHICH  CONTROLS  I  NT  ERM 1 TT  ANT  MODEL 

C  FUNCTIONS.  TMAIN  ACTIVATES  A  I R ,NU CL  EAR , CHEM I  CAL ,T ARCET  ACQUI5IT0N 

C  GROUND, SUPPL IES  AND  THEATER  CONTROL  MODELS. 

C  CALLED  BY  NMAIN.  CALLS  MSREAO  AND  APDRTN . 

Caaaaaaaaaaaaaaoaaaoaaaaaaoaaaaaaaaaa 

C 

DIMENSION  ARSTC5) 

DATA  ARST/4H*TRE,AHNTST,4HRENT,4H$TRE,4HNT  / 

COMMON  /RSTRT/  NRSTRT I  3 1 

REAL  NSUT0,NTSU0T,JHT0A, INTOE, INTD5 

aaoaaaeaaa 6  o»o  a  a o»oooo  a  a  0000  ooooo  ooooooo  00 eaoaooeeeaeaaeaaoeeeoeoaaeeaaeoaeaeeaa 

CDMMDN/BBB/ 

aaeaaoaaaaaaaaaaoaaaaaaaaaaaaaaaaa  aaaaaaaaaaaoaaaaaaaaaaaaaaaaaaaaaaaoaaaaaaaaaa 
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COMMON/TNF  SC2/NC3S0 1 2) , XC3SO <8 ,2 1 , YC3S01 8 ,2 > , 

•  FOOSADI8,2),FSDSAOI8,2),FTDSAO(8,2) , 

•  FABDCC(2),ABSFCC(6 ,2 ) , A6SRCCI 8  ,21 , AOCZCC 12  ) , 

•  FSSMCCI2) ,TSSH)R<8,2),SSSH)Ht 8  ,2>,SSSM1L(8,2>  , 

»  FSAMCCI2)  ,TSAHIRO,2l,TSAH)ZI2)  ,SSAMIFI3,2) 

COMMON /TNF 5C3/NC3DD(2),XC3OO(8,2).YC3D0(8i2) , 

•  NCOMD(2),XCOMO(8,2),YCOMO{8,2), 

•  FCLWL (10(2) 


REAL«8  N AMES ( 1 6 )  , QN AHE 

INTEGER  IPR  INTI  161,  ICHNUCC2.2) ,  I ZZ 1, 1ZZ2 , !ZZ3 


100 

101 


OATA  NAHES/’QAPORT  ’.'OPSAIR 

•  1 QNUC  '.’QTARAQ 

•  ’  OSUPLY  S’QTIMET 

•  ' QNUC CO  •/ 

OATA  IPRINT/ 16 *7/ ,  ICHNUC/4*7/ 
FORMAT ( 10X ,2013) 
F0RMATIA8,2X,3CI1,4XII 


»,  'CPSUMY 
•,'OCND 
• , ' QWRRST 


•,‘QAIRMO 
», 'OAIRGO 
* , *  QTNF IN 


10)  INITIALIZATION 


*, 'QCHEM 
»,’QTC 
’ , ’QOSDEG 


IRST-17 
MOT  *  JCON 

REA0(5,100,EN0=25)NCYCLE,NNSC 
RE AO  1 5, 100  , END *25) I PROO 
RE  AO ( 5, 100  .END =25) ( ) PRSO 1 1 > , I  *  1 ,20  I 
REAO 1 5 , 1 00  ,E NO  =25 1 1 OMU 

21  RE  AO  1 5, 1 01  ,ENO=25)ONAME,1ZZ1,1ZZ2,I223 
00  22  )  =  1 , 16 

IF (QNAHE.NE. NAMES! )) JGOTO  22 
IPRINTI I)=IZZI 

IF  I QNAHE.NE. NAHE5I 5) . AN O.QNAME -N E .NAMES C6) )GOTO  21 
ICHNUC(1,1~4)  =  IZZ2 
)CHNUC(2,)-AI=  IZZ3 
GOTO  21 

22  CONTINUE 
C 

JC0N»IPRINTI1A) 

CALL  TNF)NP 


c 

25  CONTINUE 


C 


)  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 

1  JCIOOl 
1  JCIOOl 
>,I  JCIOOl 
*,I  JCIOOl 
',)  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 


1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


c - 

C  ALLOCATE  NOTIONAL  AIRBASE  TO  REAL  AIRBASES  UNLESS  THIS  IS  A 
C  RESTART  RUN. 

c - 

c 

IFINRSTRTIll.GT.il  GO  TO  10 
JCON»  IPRINTIl) 

CALL  AP0RTNI1I 
10  CONTINUE 
C 

c - 

C  PRINT  TABLES  FOR  CYCLE  PRECEEOING  START  OF  GAME. 


C 

ICYCLE*0 

IFINRSTRTlll.&T.l)  ICYCLE=NRSTRTI3 )»2-l 
JSUM =IPRINT|2) 

CALL  PSAIR 
JSUH*IPR)NTC3) 

CALL  PSUHHY 
C 

- - 

C  SET  GAME  CYCLE  COUNTER.  INITIALIZE  MAJOR  SUPPLY  CYCLE 
C  COUNTER  TO  NCSH  •  NO.  COHBAT  CYCLES  IN  A  MAJOR  SUPPLY  CYCLE 

C - - 

c 


1  JCIOOl 


I  JCIOOl 
I  JCIOOl 
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11  1IFLAG  =  0 

IMNRSTimn.GT.il  GC  TO  900 
GO  T(J  901 
930  II  FLAG  -  1 

ICYCLE  =  NRSTRT (3)  *  2 
GO  TO  902 

901  ICYCLE  =  1 

902  CONTINUE 
ICSH=NCSH 

IF(NCSH.LE  .01  GO  TO  904 

903  If ( ICSH.GE .ICYCLE!  GO  TO  904 
ICSM  =  ICSM  ♦  NCSM 

GO  TO  903 
934  CONTINUE 
C 

C - 

C  231  EXECUTE  AIR  MODEL 

C  STATEMENT  1000  IS  THE  STARTING  POINT  FOR  CALCULATIONS  EACH  CYCLE. 

C  BEGIN  BY  SETTING  PRINT  FLAG  IPRD-1  (PRINT)  IF  CYCLE  IN  ARRAY  IPRDO 

C - 

C 

IF  INKSTRT (?) .EO.I .ANO.I IFLAG.ED.l  I  GO  TO  1015 
1000  DU  1010  mi, 5 

IF (ICYCLE. EO.I PRDOIIII)  CO  TO  1015 
IF  C  ICYCLE.LT. I  PROOM  I  1  I  GO  TO  1020 
1010  CONTINUE 
GO  1U  1020 
1015  IPRO* I 

GO  10  1025 
1020  IP  RD  =  0 
1025  CONTINUE 

IF [  I0HU.ED.71  GO  TO  1D21 

JC0NMPRINT141  I  JCJ001 

CALL  AIRHDD 


C 

C - - - 

C  30)  EXECUTE  NUCLEAR  ANO  CHEMICAL  MODELS 

C - 

c 

c - 

c  ARE  NUCLEAR  ANO  CHEMICAL  WEAPONS  CONSIDERED  ? 

c - 

c 

IFIICHU.EQ.5)  GO  TO  700 

C - 

C  ALLOCATE  NOTIONAL  AIRBASES  TO  REAL  AIRBASES 

C - 

c 

JC0N*IPR1NT(1I  I  JC1DD1 

CALL  APORTN(l) 

1021  CONTINUE 
C 

c - 

C  FOR  NNSC  SUBCYLES 

C  SET  FLAG  ANO  CALL  NUC  ANO  CHEM  FOR  DETERMINING  ESCALATION 

C  STATE  ANO  CHEMICAL  EMPLOYMENT  LEVEL 

C - 

c 

NI TCe3 
KNUCH=0 
C 

C - 

C  SET  IPRS  FOR  SUHHARY  OUTPUT 

C - 

c 

IPRS'O 

oo  i  mi, 30 

IF  (I  CYCLE. EO.I  PR  SO  ((III  GO  TO  2 
IF  (ICYCLE. LT.IPRSDCIMI  GO  TO  3 
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1  CONTINUE 
CO  TO  3 

2  IPRS* 1 

3  IFCICYCLE.EO.l.OR.ICYCLE.EQ.NCYCLEl  IPRS-l 
IF  CIIFLAG.EQ.il  IPRS  *  1 

C 

C - 

C  BEGIN  CALCULATIONS  FOR  EACH  SUBCYCLE  INCYL 

C - 

c 

DO  bOO  INCYL  =1  ,NNSC 
C 

c - - - 

C  IF  NO  CHEH  OR  NUC  WEAPONS  USEO  AFTER  FIRST  SUBCYCLE  .LEAVE  OO-LOOP. 
C - 

c 

CJCJ  IF t INCYL .GT.l.AND.KNUCH.FQ.OI  CO  TO  700 
KF  L  AG  *  1 
KI  5  S  *  0 

c 

JCON  *  I  PR  1 N  T ( 1 6 1 
CALL  NUCCCO 

c 

JCON* IPR INT I  15 ) 

CALL  OSOEC 


C 

c - 

C  IF  CHEH  WEAPONS  ARE  TO  BE  PLAYEO  CHEH  0ETERH1NES  CHEH1CAL 

C  EHPLOYHENT  LEVEL  ANO  INITIALIZES  CHEH 1  CAL  MODEL 

C - 

C 

1F(IOMU.EQ.3.0R.IOHU.EQ.SI  CO  TO  12 
JCHEN-IPRI  NT  (5  I 
CALL  CHEH 
KFLAG*1 
KISS*0 


IF  NUC  WEAPONS  ARE  TO  BE  PLAYEO  NUC  DETERMINES  ESCALATION 
STATE  AND  INITIALIZES  NUCLEAR  HOOEL 


12  IF  (IOMU.EQ.A.OR.IOHU.EQ.51  CO  TO  13 
JNUC  = IPR I  NT  C  6 1 

CALL  NUC 

13  KF  LAG  *  0 


BEGIN  NUC  AND  CHEH  CALCULATIONS  FOR  EACH  SECTOR  KISS  *  15. 


00  500  15*1 .NS 
KI SS* I S 
C 

C - 

C  OETERHINE  IF  THIS  SECTOR  HAS  A  POSITIVE  ESCALATION  STATE 
C - - - 

c 

00  310  L  *1  ,2 
00  310  ITC'l.NITC 
IFIIESCtlS.lTC.LI.GT.OI  GO  TO  320 
310  CONTINUE 
C 

c - 

C  NO  USE  OF  NUCLEAR  WEAPONS  IN  THIS  SECTOR 
C - 

c 

KNUC*0 
GO  TO  350 


JCI001 


JCI001 

JCI001 

jcioo; 

JCI001 

JCI001 

JCI001 


1  JC1001 


I  JCI001 
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NUCLEAR  WEAPON  ARE  TO  BE  USEO 

KNUCH  INDICATE  S  NUCLEAR  OR  CHE  HI  CAL  WEAPON  USE 


320  KNUCO 

KMUCH*KNUCH«1 


OETE RHINE  IF  THIS  SECTOR  HAS  A  POSITIVE  EMPLOYMENT  LEVEL 


350  CONTINUE 

00  360  L-1,2. 

00  360  ITC  «1 »N 1 TC 
IFtlEKL(lS,ITC,L).GT.O)  GO  TO  370 
360  CONTINUE 


NO  USE  OF  CHEMICAL  WEAPONS  IN  THIS  SECTOR 


KCHEM*0 
GO  TO  500 


CHEMICAL  WEAPONS  ARE  TO  BE  USEO 


370  HCHEM*I 

KNUCH  =  KNUCH«I 


IF  THE  ESCALATION  STATE  OR  THE  EMPLOYMENT  LEVEL  WAS  POSITIVE 
CONDUCT  TARGET  ACQUISITION  IF  NOT  GO  TO  NEXT  SECTOR 


500  CONTINUE 

IFIINCYL.GT.il  GO  TO  505 

KIPRD*IPRD  C  JCI001 

ICI  IPRD*0 


TARACO  PERFORMS  TARGET  ACQUISITION  CALCULATIONS 


JNUC*IPR IN T ( 71  I  JCI001 

CALL  TARACQ 
*  IPRD*KI PRO 


DETERMINE  ORDER  OF  USE  OF  WEAPONS 


505  CONTINUE 

IF IKNUC . E3 .0  •  AHO.  KCHEH.EQ.01  GO  TO  500 
IFII0HU.EQ.1.0R.I0MU.E0.3.0R.I0MU.GE.6)  GO  TO  510 
GO  TU  560 


NUCLEAR  WEAPONS  ARE  USEO  FIRST  IF  ALLOWED 


510  CONTINUE 

IFCKNUC.LO.OJ  GO  TO  520 
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NUC  PERFORMS  NUCLEAR  OAHACE  CALCULATIONS  IN  SECTOR.  KISS 


JNUCMCHNUC(lt2>  I  JCI00I 

CALL  NUC 


ARE  CHEMICAL  WEAPONS  USED  IN  AOOITION  TO  NUCLEAR  WEAPONS  ? 


420  CONTINUE 

IF! I0MU.E0.3I  CO  TO  500 
IF  IKCHEM.EQ.OI  CO  10  500 


CHEH  PERFORMS  CHEMICAL  OAM ACE  CALCULATIONS  IN  SECTOR  KISS 


JCHEM*ICHNUC(1>1)  I  JC 1001 

CALL  CHEM 
CO  TO  500 


CHEMICAL  WEAPONS  ARE  USEO  FIRST  IE  ALLOWEO 


460  CONTINUE 

IFIKCHEM.EQ.OI  CO  TO  470 


ADDITIONAL  CHEMICAL  DAHACE  CALCULATIONS  BY  CHEM 


JCHEM*ICHNUC(1,1I  1  JC 1001 

CALL  CHEM 


ARE  NUCLEAR  WEAPONS  USEO  IN  AOOITION  TO  CHEMICAL  WEAPONS  7 


470  CONTINUE 

IF ( I  OKU. E 9.4)  CO  TO  500 
IF IKNUC.EO  .0)  CO  TO  500 


ADDITIONAL  NUCLEAR  OAMACE  CALCULATIONS  BY  NUC 


JNUC  « ICHNUC 1 1 »  2 1  I  JCI001 

CALL  NUC 


END  OF  OO-LOOP  ON  SECTOR  IS  *  KISS 


500  CONTINUE 


END  OF  OO-LOOP  ON  SUBCYCLE  INCYL 


I  JCI001 

COO  CONTINUE 


NUCLEAR  AND  CHEMICAL  OAMACE  CALCS.  FINISHEO  FOR  THIS  CYCLE 
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c 

If  (I0MU.E0.7)  CO  TO  1022 
C 

c - 

C  ALLOCATE  REAL  AIRBASES  TO  NOTIONAL  AIRBASES 

C - 

C 

JC0N*IPRINT(1)  I  JCI001 

CALL  AP0RTNC2) 

1022  CONTINUE 
700  CONTINUE 


AO  I  EXECUTE  REMAINING  PARTS  OF  TACWAR  MODEL  FOR  THIS  CYCLE 


GROUND  PERFORMS  GROUND  COMBAT  CALCULATIONS 


IFtIOMU.GE.6)  GO  TO  1041 

JC0N=IPRINTI8)  I  JCI001 

CALL  GROUND 


AIRGRO  PERFORMS  AIR-GROUND  CALCULATIONS 


JCGN  =  1PR  1NT (9)  I  JC1001 

CALL  AIRGRD 
1041  CONTINUE 

IF  (IIFLAG.EO.II  GO  TO  1026 

1FUCYCLE.EQ.I.0R.ICYCLE.EQ.NCYCLE1  GO  TO  1026 
1FCIPRD.EQ.1 1G0  TO  1026 
DO  1027  11  =1,30 

1F(ICYCLE.ES.IPRS3(1I)J  GO  TO  1026 
IFdCYCLE.LT. IPRSOdlll  GO  TO  1028 
1027  CONTINUE 

GO  TO  1028 
1026  CONTINUE 

IFCI0MU.E0.7I  GO  TO  1028 


PSA  1 R  PRINTS  A IR-GROUNO  SUMMARY,  AS  REQUIRED 


JSUM=IPR1NT(2I  I  JCIOOl 

CALL  PSAIR 
1028  CONTINUE 


.IF  ICYCLE  NOT  LAST  CYCLE  IN  GAME,  SET  FLAGS  FOR  CALLS  TO  NUC  AND 
CHEM  TO  CALCULATE  NUCLEAR  ESCALATION  STATE  ANO  CHEM  EMPLYMT  LEVEL 


KF  LAG  *2 
K! SS=0 
INCYL  =0 


NUC  DETERMINES  NUCLEAR  ESCALATION  STATE  IF  NUC  WEAPONS  ARE  PLAYED 


IFU0MU.EQ.3.0R.10NU.EQ.5)  GO  TO  14 

JCHEM=ICHNUC(2,1)  I  JCI001 

CALL  CHEM 


CHEM  DETERMINES  CHEMICAL  EMPLOYMENT  LEVEL  IF  CHEM  WEAPONS  PLAYEO. 
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14  1FII0MU.EQ.4.0R.IOMU.EC.51  GO  TO  15 
JNUC*1CHNUCI2,2] 

CALL  NUC 

15  KFLAG  =  0 

IFUOMU.GE  .6)  GO  TO  1090 
C 

c - - 

C  TC  PERFORMS  THEATER  CONTROL  AND  BOOKKEEPING  CALCULATIONS 

C - - - 

c 

JCONUPR1NT1101 
CALL  TC 

IF ( ICYCLE.NE .(CSH(  GO  TO  1030 
C 

C - 

C  FOR  MAJOR  RESUPPLY  CYCLE.  SUBROUTINE  SUPPLY  MAKES  SUPPLY 

C  MOOEL  CALCULATIONS 

C - 

c 

JC0NMPRINTI11  1 
CALL  SUPPLY 

c 

c - 

C  INCREMENT  NEXT  MAJOR  RESUPPLY  CYCLE 

C - - - 

c 

ICSM*IC5M»NCSM 

1030  IF  ( 1CYCLE  .NE..2«IC0)  GO  TO  16 
C 

c - - - 

C  TIMET  R E AOS  INPUTS  IF  TIME-T  VABIA8LES  ARE  TO  BE  INPUT  THIS  CYCLE 
C - 

c 

JCON- IPR INT  <121 
CALL  TIMET 

16  IFUIFLAG.EQ.il  GO  TO  1040 

IF  1  (CYCLE  .EQ.I  .OR.ICYCLE  .EQ.NCYCLE  1  GO  TO  1040 
IF  1IPRD.E0.11  GO  TO  1040 
00  1035  II *1 ,30 

IFIICYCLE.EO.lPRSOIIlll  GO  TO  1040 
1FIICYCLE.LT. IPRSOIIlll  GO  TO  1090 
1035  CONTINUE 

GO  TO  1090 
1040  CONTINUE 

c 

c - - 

C  P5UMMY  PRINTS  SUMMARY  TABLES  FOR  GROUNO  ANO  THEATER 
C  control  variables 

C - - - - 

c 

JSUM • I  PR  1  NT  1 3 1 
CALL  PSUMMY 
1 1 F  LAG  •  0 
C 

C - - 

C  CHECK  TO  DETERMINE  IF  THIS  TACWAR  RUN  HILL  CREATE 

C  RESTART  FILE.  If  SO,  COPY  BLANK  COMMON  FOR  EACH 

C  COMBAT  DAY  TO  THE  OUTPUT  RESTART  FILE.  IlRST  -  171 

C - - 

c 

1090  1F1NRSTRTC1)  .EQ.l.OR.NRSTRTlll  .EQ.31  GO  TO  1050 
GO  TO  1055 

1050  IF  IM0DIICYCLE.2I.EQ.01  GO  TO  1055 
NOAY  *  1ICYCLE  *11/2 

KRITE  IlRST, 10511  ARST,  NOAY 

1051  FORMATI 1X.A1 8 .  14  I 

JCON* IPR INT 1 131  I 

CALL  NRRSTIIRSTI 
1055  CONTINUE 

c 


1  JCtOOl 


JCI001 


JC1001 


jciooi 


JCI001 


JCIOOI 
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c - 

C  END  CF  CALCULATIONS  FOR  THIS  CYCLE.  STOP  IF  LAST  INCYCLE )  CYCLE; 

c  otherwise,  increment  icycle  ano  begin  calculations  for  new  cycle. 

c - 

c 

IF  (ICYCLE .GE.NCYCLE)  GO  TO  1099 

ICYCLE’1CYCLE+1 

GO  TO  1000 

c 

c 

1099  IF  (NRSTRTI  1)  .E0.1.0R.NRSTRTU1.EQ.31  REWINO  1RST 
RETURN 
ENO 


SUBROUTINE  TNFINP 

TNFINP  READS  IN  DATA  ASSOCIATED  WITH  CCC  DEGRADATION  OF  NUCLEAR 
RESOURCES 


1  JC1001 
I  JC 1001 
1  JC 1 00 1 
I  JCI001 
I  JCIOOI 
I  JCIOOI 


REAL  NSUTD,NTSUD1,1NT0A,1NTDE,1NTDS 
C0MM0N/BB8  / 


100 

101 

102 

103 

104 

105 


0000000004904094444009000449904009 0000090009090009000099000900040000099909 


C0MM0N/TNFSC1/INABF18 ,2)  .  I NA BR (8 ,2  )  , I  NAB  2 (2 1 

1 

JCIOOI 

CCMM0N/TNFSC2/NC3SD (2) .XC3S0IB ,  2  ) ,  YC  3S0  (  8 , 2 ) , 

) 

JCIOOI 

*  F00SA0(B,21, FSOSAOIB ,2 ) , FTD5AD I  8 ,2 ) , 

JCIOOI 

•  FABOCC (2) , ABSFCCI8 ,2  I , AB5RCC I B , 2  I .ABCZCCI2I . 

1 

JCIOOI 

•  FSSMCCI2I .TSSN1RI8 ,2 I , SSSM IMC B ,2 1 , SSSM I L (8 ,2), 

I 

JCIOOI 

FSAMCC (21 .TSAHIR (3,21, TSAM 12(2) ,SSAKIF(3,2) 

1 

JCIODl 

C0MMON/TNFSC3/NC3O0I21 , XC3C0 (8 ,2 ) , YC3DD (8 ,2  1  , 

I 

JCIDOl 

NCOMO (21 .XCOMO (8,2),YCDMDI8,2) , 

I 

JCIOOI 

FCLWL ( 10 ,2 ) 

1 

JCIOOI 

C0KM0N/TNFSC4/NEDLY(2I , XE0LYI8 , 2 1 , YE OL Y ( 8 , 2 ,2 ) , 

1 

JCIDOl 

JESC(8,3,21,IWAUT{8 ,2) .1FPLSI8 ,2), 

) 

JCIOOI 

TEOPO (2 1 , SEOPO (8 ,2  ) , CT IME  CB ,2) 

1 

JCIDDI 

COMMON/TNF5C5/NGSFDI2I ,XGSFD(8 ,2 ) , YGSF D (8 ,2 ) , 

1 

JCIOOI 

NAAF0(2),XAAF0(8,2), YAAF 0(6,21 , 

1 

JCIOOI 

NAFF 0(21 .XAFF018  ,2 1 , YAFFO ( 8 ,2 1 

I 

JCIOOI 

RE AL*8  APARM (3 I I 

I 

JCIOOI 

OATA  APARM  / 1  NC  300  ’.’XC300  ’.’YC300  ’,’NEUMO 

», ’XCOMO 

M 

JCIOOI 

*  YC  UK  0  ’.'FCLWL  ’,’NC3S0  *,’XC350 

* , ’YC3S0 

M 

JCIOOI 

•FABOCC  ' , ' F  5SMC C  ’,’FSAMCC  ’,’TSSMIR 

* , ’ SSSM  IN 

*.I 

JCIOOI 

' 5SSMIL  ’,’TSAMIR  ’,’TSAMIZ  ’,’SSAMIF 

•,’NEOLY 

’,1 

JCIOOI 

•XEOLY  ’,'YEOLY  ’,’NGSFO  », ’XGSFD 

’,’YGSFO 

JCIOOI 

•NAAFO  ’,’XAAFD  ’,’YAAFO  ’,’NAFFD 

’,’XAFFD 

M 

JCIOOI 

•YAFFO  •/ 

I 

JCIOOI 

DIMENSION  AS  10 E (2 1 

1 

JCIOOI 

DATA  ASIDE/* 8LUE',’ RED  •/ 

I 

JCIOOI 

F0RMAT(10X,20I 3) 

1 

JCIODl 

FQRMAT(1X,A6,10(3X, 14) 1 

I 

JCIOOI 

F0RMAT(10X,I0F6.0) 

1 

JCIDOl 

FORMAT(lX,A6,10t3X,F8.3)l 

1 

JCIDOl 

FORMAT ( *0  INITIAL  TNF 5  VALUES  FOR  ’,A4,’  SIDE*) 

I 

JCIOOI 

FORMATllX, ’NORMALIZED  VALUES  FOR  FCLWL*) 

1 

JCIODl 

MOT  =  JCON 

I 

JCIODl 

00  30  L  =  1 , 2 

I 

JCIOOI 

RE  AO  ( 5  ■  100  1 

1 

JCIDDI 

WRITEIMOT, ID41ASIDEIL) 

I 

JCIDDI 

READ(5,100,ENOr25,ERR=28)NC300(L) 

I 

JCIOOI 

WR  1TE (MOT, 101) APARM (1),NC300  (L) 

1 

JCIOOI 

NN  =NC300  (L  ) 

I 

JCIDDI 

READ(S,102,FN0=25,ERR*28)(XC300(I,L),I*1,NN) 

1 

JCIOOI 

WRITE  (MDT,103)APARM(2),(XC300(t,L) ,I*1,NN) 

I 

JCIOOI 

REA0(5,102,EN0*25,ERR*28 ) ( YC30 0 ( I , L ) , I *1 ,NN ) 

I 

JCIOOI 

WRITE  (MOT,  1D3I  APARM  (  3),  (YC300(1,L)  ,1*=1,NN) 

I 

JCIOOI 

RE  AD  (5,  IDO,  END  =25,  ERR  =28  )NCUMO(L) 

1 

JCIDOl 

WR  HE  EMOT,  101)  APARM  (4 1  ,  NCOMO  (L  ) 

1 

JCIOOI 

NN=NCOMD  (L  ) 

1 

JCIOOI 
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RE  AO  l  5 1 1 02  ,£NO=25,£RR=28((XCOHO(  1 «  L)  ,1*1  »NN  t  I  JCI001 

WRITE«K0T,103)APARH(5) ,  IXCOHOtl.l)  ,I«l,NN)  I  JCI001 

REAOC5,102,EN0=25,ERR  =  28)(YC0H0(f,L{,I*l,NNJ  I  JCI001 

MRITECHOT  ,  1031APARW16)  ,  (YCOHOl  I,L)  ,1*1, NNl  1  JCI001 

NN  =NW (L  I  t  JC1001 


REAOl5,102,EN0*25,£RR*2e({FClWL(I,U,t*l,NN) 

WRITE  (HOT,  1031  APARH (  7)  ,  I  FCLWL  ( I  ,1  )  ,1  «I  ,NN  ) 
REA0(5,100,EN0*25,ERR=28 INC  350 (L) 
WRITEIHOT,10I)APAAH(8),NC3SOIL) 

NN  =NC3S0 (L I 

RE  AO  1 5, 102  ,EN0*25,ERR*2B)(XC3S0(I ,L) ,1*1, NNl 
WRITE (HOT, 103 IAPARH 191 ,(XC3S0(I.L) ,1=1, NN1 
REA015,102,ENO=25,ERR=28UYC3SOC1,11,I=1,NN1 
WRITE (HOT, 103 1 APARH ( 101 , (YC3S0 1 1 ,L ( , 1  *  1 ,NN) 
REA015,100,ENO*25,ERR=28)NEOLYCL) 

WRITE  IHOT, 101 1 APARH 120 1 .NE0LY1L) 

NN  =HE0L Y  IL  I 

REAO(5,102,FNO=25,ERR=2B){XEOLYCI,l) ,I«1,NN) 

WRITE  IHOT, 103)APARH121),(XE0LY(),L), 1*1, NN I 
00  10  J*l,2 

RE  AO  I  5, 102 ,EN0=25,ERR=28) (YEOLYI 1, J,L 1.1*1, NNl 
WRITE (HOT, 103  I APARH (22) , (YE0LY1I  ,J,Ll,I*l,NN) 

10  CONTINUE 

REA015.100  ,EN0=2  5,ERR  =  2B)NCSF0(l I 
WRITE (HOT, 101 1 APARH (23  I .NGSFOlll 
NN  =  NGSFO(L  I 

RE  AO  (5, 102  ,EN0  =  25,ERR  =  2B)(XGSF0ll,U ,I*1,NN1 
WR  I  TE  (MOT,  103  )  APARH  (24  )  .{XGSFO  U,L),1*1, NNl 
RE  AO (5, 102  ,EN0=25,ERR=281( YCSFOl 1 , L I , I =1 ,NN I 
WR I TE IHOT , 103 IAPARH (25 1 , ( YGSFO ( I ,L 1 , 1 =1 , NN I 
REA0(5,100,ENO*25,ERR=281NGSF0!ll 
WRITE (HOT, 101 IAPARH (261 .NAAFOl LI 
NN=NAAFO(L 1 

REAO  (5, 102  ,EN0=25,ERR  =  2.8  I  (XAAFO(  I  ,L1  ,  I  *1  .NN  I 
WRITE (HOT, 103) APARH (271 , ( XAAFO ( 1 ,L 1 , 1 =1 ,NN I 
REA0l5,102,EN0*25,ERR=28)(YAAF0l I ,L1 ,1=1 ,NN1 
WR 1TE (HOT, 103 IAPARH (28  I , (YAAFOI I ,L 1 ,1  =  1 ,NN1 
RE  AO ( 5, 100, END *25, ERR *2 8 1NAF FOIL) 

WRITE (HOT , 1011 APARH (291 ,NAFFO(LI 
NN=NAFFO(L 1 

RE  AO  (5, 102  ,EN0  =  25,ERR*28  KXAFFOl  1,1)  ,1*1,NNJ 
WRITE  (HOT,  103)  APARH  (30  I  ,  (XAFFOd  ,L  1 ,1*1  ,NN) 

RE  AO (5, 102 ,ENO  =  25,ERR  =  28 )( YAFFO! I ,LJ ,I  =  1,NN1 
WR ITE (HUT, 1031 APARH (31 1 , ( YAF FO ( I ,L 1 , I =1 ,NN I 
REAO (5, 102 ,EN0=25,ERR=28 If  APOCCIU 
WR I TE (HOT, 103) APARH (11  I .FAEOCC (L) 

RE  AO  ( 5 , 1 02 , E NO =2 5, E  RR  =  2  8 1 F  SSHCC ( L  ) 

WRITE (HUT, 103) APARH (12), FSSHCC (l I 
RE  AO (5, 102  ,EN0*25,ERR  =  28)FSAHCC(L1 
WRITE (HOT, 103 1 APARH ( 13) .FSAHCCCll 
00  40  15  =  1  ,NS 

IF (33H5RS( I5.L  ) -GT . 0 - 1 T S5H IR ( 1 S,L ) =S 5HSR 5 ( I S ,L ) 
IFISSMSFSl  1,I3,L1.GT.0.) 5SSHIH(I5,L) =S5HSFS1 1  ,IS,L) 
IF (55H3F312, I5,L l.GT .0.) S3SHIL (I 5,L) *S5HSFS(2 ,15  ,L) 
40  CONTINUE 

WRITE (HOT, 103 1 APARH (14) , IT55H1 XI 1 5 ,1 ) ,15*1, Nil 
WR ITE (HUT, 103) APARH (15) , (S55HIHI 1 5  ,1 ) , 1 5  *  1 , N 5 ( 

WRITE  (HUT,  103)  APARH  (16  (  ,  (SSSHIl(IS,L),IS  =  l,N5) 
NRI=NR(L( 

DO  42  I  R  =  I  ,NR T 

IFIALR5R () ,)R,L(.GT .0 . ( T SAH I R ( IR ,L 1  * ALR SR  Cl ,IR,l J 
If  (EHKSU,  th,L  l.GT  .0.155  AH  If  ( I  R ,  L  )  *BHR  S  ( 1, 1 R  ,L ) 

42  CONI  I NUE 

IF  ( ALRS  2  C I  ,L  )  .GT  .0 .  I T 5AH  1 2  ( L  )  =  ALR  5 Z(  1  ,L ( 

WRITE (HOT, 103 1 APARH (17) , (T SAH ) R( IR ,L )  , I X  =  1 ,NR T I 


1  JCI001 
I  JC I  001 
I  JC  1001 
I  JCI001 
I  JCI001 
I  JCI001 
I  JCI001 
1  JCI001 
I  JCI001 
I  JCI001 
I  JC1001 
1  JCI001 
I  JCI001 
1  JCI001 
I  JCI001 
l  JCI001 
I  JCI001 
I  JCI001 
I  JC I  00  I 
I  JC1001 
1  JCI001 
I  JCI001 
I  JCI001 
1  JCI001 
I  JCI001 
1  JCI001 
I  JC1001 
I  JCI001 
I  JCIC01 
1  JCI001 
I  JCI001 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
1  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 
(  JCIOOl 
I  JCIOOl 
I  JCIOOl 
I  JCIOOl 


WRITE (MOT , 103IAPARM (18 ) ,TSAH!Z(L(  I  JCIOOl 

WRITE(H0T,1031APARM(I9) , (S3 AH  I F{ I R,L 1 ,1R* I , NRT)  1  JCIOOl 

NN  *NW (L )  1  JCIOOl 

5UHH=0.  j  JCIOOl 

00  32  1*1, NN  j  JCIOOl 

32  SUHH*5UHH»FCLWL( I, LI  j  JCIOOl 

IF(5UHH«LE  *0 . I  GOTO  35  j  JCIOOl 
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appendix  a 


DO  34  I  *  1 »  NN 

I  JCIDD1 

34 

FCLWL  (I  ,L)  *FCLWL  11  ,L|/SUMM 

1  JC1DD1 

35 

WRITE (MOT, 1D5) 

1  JCI001 

WR I T  E (MOT  1 1 03 1 APARM (71 f ( FCLWL(I,L 1  , 1 *1 ,  NN 1 

1  JCI0D1 

30 

CONTINUE 

r  JC1001 

25 

CONTINUE 

I  JC1D01 

RETURN 

1  JC10D1 

28 

WR1 TE (6,9991 

1  JC1001 

999 

FORMAT ( ' 1 •»*•••  ERROR  OCCURRED  IN  SUBROUTINE  TNF1MP  ON  OATA  ♦,  1  JC1DD1 

« 

’READIN  o***i 

1  JCI001 

STOP 

I  JCID01 

END 

1  JLIUD1 

6LCCKDATA 

1  JCID01 

COMMUN/TNF 5C2/NC3J0I2) ,XC3SD(B ,2 1 , YC3SD 18 ,2 1  , 

1  JCID01 

0 

FOOSAO(8,2l,FSOSAO(8  ,2 1 ,  FT  OSAO ( B ,2 1 , 

1  JC 1001 

• 

FA8DCC (2) ,ABSFCC (8  ,2  !,ABSRCC( B,2),ABC2CC  (2) * 

I  JC10D1 

• 

FSSKCC(21 .TSSM1R ( 8 , 2 1 , SSSM I M ( B ,21,SSSM1L(B ,21, 

1  JCI001 

0 

FSAMCC (21 .TSAH1R (3,2 1,T SAM  12(21 ,SSAM1F(3,2I 

I  JC  1  DO  1 

C0MM0N/TNFSC3/NC 300(21 ,XC300t 8,2 >  ,  YC 300 (8,21 , 

1  JC1001 

• 

NCOMD (21 ,XCOMO (8  ,2 1 , YCCMD 1 8 , 2 1  , 

1  JCID01 

0 

FCLWL (10,2 1 

I  JCID01 

DATA 

NC3D0  .NCOMD ,NC3SD/6®D/ 

1  JCID01 

DATA 

XC3DD,XC0MD,XC3SD/48®0./ 

1  JCI001 

OATA 

YC3DD ,YCDMD . Y C 3 SO/ 4 8» D . / 

I  JC  I  DO  1 

DATA 

FCLWL/2D®D./ 

1  JCI001 

OATA 

FA30CC,FSSMCC,FSAMCC/6®D./ 

I  JC I  CD  1 

DATA 

TSSMI R,SSSMIK,SSSMIL/48®.DD1/ 

I  JCIDD1 

OATA 

TSAMIR.TSAMIZ.SSAMI F/ 14® .001/ 

I  JC  1  DO  1 

DATA 

AB5FCC,ABSRCC,A8CZCC/34®1./ 

I  JCIDD1 

END 

I  JC I  CD  1 

BLOCK  DATA 

I  JCIDD1 

CDMMDN/TNFSC1/INA3F(8,2) , I NABR (8 , 2 1 , 1 NAB2t2 1 

I  JCI001 

C0MMUN/TNFSC2/NC3S0(2I , XC35DI8.2), YC3SD(8,2I , 

1  JCI0D1 

• 

FDDSA0(B,21,FS0SAD(8  ,2 1 , FTOSA D ( 8 .2 1 , 

I  JC  I  001 

• 

FABDCC12I .AB5FCC1B ,2  I.ABSRCC18 , 2 1 .ABCZCC 1 2 1 , 

I  JCIDD1 

0 

FSSMCC(21,TSSMIR(8, 21, SSSMIM(8, 21, SSSMIL(6, 21, 

I  JCID01 

• 

F5AMCCC21 ,TSAMIR(3,21,T5AMIZ(2J  , SSAM I F ( 3 ,2 1 

I  JCICD1 

COMMON/TNFSC3/NC3DD(2I  ,XC300(8,2  !  ,YC3DD(B,2J  , 

I  JC100I 

• 

NCOMD (2) ,XCOKO (8,21, YCOMD( 8,21, 

I  JCID01 

e 

FCLWL (10,2 I 

I  JCI001 

CDMM0N/TNFSC4/NE  DL  Y  ( 21  ,  X  EOC  Y  ( 8  ,2 1 ,  YE  DC  Y{  8 , 2 , 2  1 , 

I  JC I  00 1 

• 

JF SC (8, 3,21, 1 WAU  T {8,2} ,!FPLS(B,2), 

I  JCID01 

* 

TfQP0(21 ,SfQP0(8  ,21  ,(T  IMF (B,2> 

I  JC I 00 I 

COMMUN/TNF  SC 5/NG  SF 0  (2  I  ,  X CS F  D  { 8 , 2  1 ,  YGSf  D { 8  ,2  1  , 

1  JCI0D1 

« 

NAAF  01 21  ,XAAr  0(8,2 1  ,YAA1  0(8,2 1  , 

i  jciooi 

* 

HA  r  1  D  (21  ,XAII  0(8,21 ,  YAf  1  0(8,2  1 

1  JCIOOI 

OATA 

1NAIJF  ,lNAiiP.,)NA|l//34®0/ 

1  JCIOOI 

OATA 

NC  3S0  /2®0/ 

1  JCIOOI 

OATA 

XC3  50  ,YC3S0,f  OOSAD  ,F  SO  SAD,  F  T0  5A0/8D«0./ 

I  JCIOOI 

OATA 

1  ABOCC.ABSICC  ,  Al!  SRCC ,  ABCZCC/ 3F.«D  ./ 

I  JCIOOI 

OATA 

FSSMCC,  TSSM  IR,  SSSM  1M,  SSSM  Il/.50®0./ 

I  JCIOOI 

OATA 

FSAMCC,TSAMIR,TSAM1/,SSAMIF/16®0./ 

1  JCIOOI 

OATA 

NC  300,  NCfJMD, NEDLY.JE  SC,  IWAUT,  IFPLS/8t®0/ 

I  JCIOOI 

DATA 

XC3DD,YC3DD,XCCMD,YCDM0,XEDLY,YE0LY/112®0./ 

I  JCIOOI 

DATA 

FCLWL  ,T£QPD,SEQPD,CT1M£/54®D./ 

1  JC I  DO  1 

OATA 

NCSFO  ,NAAF0,NAFF0/6®0/ 

I  JCIDOl 

DATA 

XGSFD,YG5FD,XAAFD,YAAFD,XAFFD,YAFFD/96»D./ 

I  JCIOOI 

END 

1  JCIDDl 
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